Как показать число, разделив каждые три цифры запятыми?

Олег Кулабухов отвечает на вопрос:

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

[001854]