function IntToStr(I : Integer) : String; var St : String[31]; // for Delphi 2009 and above begin Str(I, St); Result := String(St); end;