Wie kann ich Mit Button Tags arbeiten(bitte helfen wichtig)

[PeterPan]

Code:

  
const Gebuehr  = 1/2;
procedure TForm1.Button1Click(Sender: TObject);
var Parkgebuehr,Endbetrag: Currency;
    Zeit1, Zeit2, Zeit : TDateTime;
    Stunden : integer;
begin
  //Endbetrag := 0;
  Parkgebuehr :=0;
  Zeit2 := Time;
  Zeit1 := StrToTime(EditZeit1.Text);
  LabelAZeit.Caption := TimeToStr(Zeit2);
  Zeit:= Zeit2-Zeit1;
  LabelZeit.Caption := TimeToStr (Zeit);
  Stunden :=  Hourof(Zeit);
  if Minuteof(Zeit) > 0 then
    Stunden := Stunden + 1;
  LabelStunden.Caption := IntToStr(Stunden);
  Parkgebuehr := Stunden * Gebuehr;
  LabelGebuehr.Caption := FloatToStr (Parkgebuehr);



case TButton(Sender).Tag of
    1:begin
        If Parkgebuehr >=10 then
        begin
          Parkgebuehr := Parkgebuehr -10;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    2:begin
        If (Parkgebuehr>=5) then
        begin
          Parkgebuehr := Parkgebuehr -5;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    3:begin
        If (Parkgebuehr>=2) then
        begin
          Parkgebuehr := Parkgebuehr -2;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    4:begin
        If (Parkgebuehr>=1) then
        begin
          Parkgebuehr := Parkgebuehr -1;
          Endbetrag:= Endbetrag - Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    5:begin
        If (Parkgebuehr>=0.5) then
        begin
          Parkgebuehr := Parkgebuehr -0.5;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    6:begin
        If (Parkgebuehr>=0.2) then
        begin
          Parkgebuehr := Parkgebuehr -0.2;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    7:begin
        If (Parkgebuehr>=0.1) then
        begin
          Parkgebuehr := Parkgebuehr -0.1;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;
    8:begin
        If (Parkgebuehr>=0.05) then
        begin
          Parkgebuehr := Parkgebuehr -0.05;
          Endbetrag:= Parkgebuehr;
          Memo1.Lines.Add((Format('%4f',[Endbetrag])));
        end;
      end;

so bin jetzt so weit gekommen wenn ich 2,5 Parkgebühr habe und dann auf den 2 euro button klicke dann stehen im Memo noch 0,5 aber klicke ich dann auf 0,5 so gibt das Memo wieder 2 aus also heißt es das parkgebuehr doch immer noch 0 ist oder nicht?

Wie kann ich das ändern oder verbessern?