[alexteam]

это типо так.

Function GetInt(const str:string):integer;
var
  Tmp: array[0..4] of char absolute result;
begin
  tmp[3] := srt[1];
  tmp[2] := srt[2];
  tmp[1] := srt[3];
  tmp[0] := srt[4];
end;