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;