procedure TForm1.Button2Click(Sender: TObject); 
var 
  d: double; 
  c: currency; 
  i: integer; 
  e: extended; 
begin 
  d := 5123.8459; 
  c := 1432.6; 
  i := 120; 
  e := 12345.1; 
 
//Ausgabe einer Fließkommazahl: 
  Label1.Caption := Format('Die Frequenz beträgt rund %.3f  Hertz.', [d]); 
// oder auch: 
  Label2.Caption := Format('Die Frequenz beträgt rund %.*f  Hertz.', [3, d]); 
 
// Fließkommazahl mit Tausendertrennzeichen: 
  Label1.Caption := Format('Die Frequenz beträgt rund %.3n  Hertz.', [d]); 
 
//Ausgabe eines Währungsbetrags: 
  Label3.Caption := Format('Es wurden %.2m  eingenommen.', [c]); 
 
//Ausgabe eines Integerwertes: 
  Label4.Caption := Format('Es sind %d Personen im Raum', [i]); 
 
//Ausgabe eines Integerwertes mit Vornullen: 
  Label5.Caption := Format('fünfstellig: %.5d', [i]); 
 
//Ausgabe eines Integerwertes mit vorgestellten Leerzeichen: 
  Label5.Caption := Format('Leerzeichen: %:5d', [i]); 
 
//Ausgabe in wissenschaftliche Notation, 6 Stellen vor dem "E": 
  Label6.Caption := Format('wissenschaftlich: %.6e', [e]); 
 
//Ausgabe eines vierstelligen Hexwertes: 
  Label7.Caption := Format('%d entspricht $%.4x', [i, i]); 
 
// und weil's so schön ist: 
  showmessage(Format( 
    'Wenn %d für %d Minuten %d sind, können sie in %d Monaten %d sein.', 
    [2, 5, 1, 9, 3])); 
 
end;