Function IntToStr (I : Longint) : String; begin Str(I,Result); end;