[alexteam]

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 байта (инт).