Formatação de Casas Decimais no TEdit

Esse comando formata para decimal os números do componente TEDIT.

Crie um novo projeto, coloque no TForm, um componente TEDIT e um componente TBUTTON. No evento onclick do componente TBUTTON adicione o código abaixo:

procedure TForm1.Button1Click(Sender: TObject); 

var

     num : integer; 

begin 

     num:=12450; 

     Edit1.text:=formatfloat('###,###,##0.00', num) 

end;