procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i := 12345678;
  Memo1.Lines.Add(FormatFloat('#,', i));
end;