function iFormat(i: Integer; Null: boolean): string; 
var s: string; 
begin 
  s := '#,'; 
  if Null then s := s + '0'; 
  Result := FormatFloat(s, i); 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  label1.caption := iFormat(123456789, false); // '123.456.789' 
  label2.caption := iFormat(0, true);          // '0' 
  label3.caption := iFormat(0, false);         // '' 
end;