procedure TForm1.Button1Click(Sender: TObject);
var Cash : Currency;
begin
    Cash := 5.5 * 12;
    Label1.Caption := Format('Total: %m', [Cash]);
end;