Wie daraus eine Funktion machen?

[kompi19]

Delphi-Quellcode:

procedure TForm3.EinCentClick(Sender: TObject);
begin
 zahlung:=StrToFloat(Label1.Caption);
 zahlung:=zahlung-0.01;

 // BEGINN DER FUNKTION
 if zahlung<0 then
 begin
 Label2.Caption:='Ihr Rückgeld:';
 Label1.Caption:=FloatToStrF(-zahlung,fffixed,16,2);

 EinCent.Enabled:=false;
 ZweiCent.Enabled:=false;
 FuenfCent.Enabled:=false;
 ZehnCent.Enabled:=false;
 ZwanzigCent.Enabled:=false;
 FuenfzigCent.Enabled:=false;
 EinEuro.Enabled:=false;
 ZweiEuro.Enabled:=false;
 FuenfEuro.Enabled:=false;
 ZehnEuro.Enabled:=false;
 ZwanzigEuro.Enabled:=false;
 FuenfzigEuro.Enabled:=false;
 HundertEuro.Enabled:=false;
 ZweihunderEuro.Enabled:=false;
 FuenfhundertEuro.Enabled:=false;
 end
 else
 Label1.Caption:=FloatToStrF(zahlung,fffixed,16,2);
 //ENDE DER FUNKTION
end;

Kann ich aus dem eingegrenzten Teil eine Funktion machen? Habe nämlich noch 14 weitere Buttons in dieser Code teil der markiert ist rein muss. Mit einer Funktion würde sich da mächtig Code sparen lassen. Wenn es geht, wie muss die Funktion aussehen und wie führe ich sie aus?