Есть функция
Delphi Код:
Function GetInt(const ss:string):integer;
var i:byte; tmp:string;
begin
for i := 1 to length(ss) do Insert(IntToHex(ord(ss[i]),2),tmp,i*2);
result := StrToInt('$'+tmp);
end;
//ss = 'cons' = #$63#0 #$6F#0 #$6E#0 #$73#0
//tmp = '636F6E73'
//result = $636F6E73
Реально ли через Move() написать ?