Add points of thousands to a number

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   i           : integer ;

Begin

   i := 2538456 ;

   Caption := FormatFloat ( '#,' , i ) ;

End ;