delphi Код:
Function GetInt(const str:string):integer;
var
Tmp: array[0..4] of byte absolute result;
begin
move(str[1],tmp[3],1);
move(str[2],tmp[2],1);
move(str[3],tmp[1],1);
move(str[4],tmp[0],1);
end;
естественно нужно учитывать что во входящей строке должно быть 4 байта (инт).