[xkor]

alexteam, типа сделал то что попросили?)
LAV45, вот так будет наиболее быстро и с проверками на размер строки:

function GetInt(const s: string): Integer;
var
  r: array[0..3] of Char absolute Result;
  i, c: Integer;
begin
  Result := 0;
  c := Length(s);
  if c > 4 then c := 4;
  for i := 4 - c to 3 do r[i] := s[4 - i];
end;