procedure TForm1.Button1Click(Sender: TObject);
var
  vTexto : String;
  vNumero : Integer;
begin
  { Pode-se converter o conteúdo de uma variável. }
  vNumero := 14589;
  vTexto := IntToStr(vNumero);
  ShowMessage(vTexto);
 
  { Pode-se também converter uma interiro estático }
  vTexto := IntToStr(545);
  ShowMessage(vTexto);
end;