[angvelem]

Сообщение от NumLock

или:

Код:

procedure CvtInt;

function IntToStr(Value: Integer): string;

Я горько плакаль. , Паскалевский способ уже не подходит?

Код:

function IntToStr(I : Integer) : String;
var
  St : String[31];
begin
  Str(I, St);
  Result := String(St);
end;