Button wird sichtbar

[Popov]

Hier ein Simulator:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  GBGN = 'Gibt einen Betrag größer Null ein:';
  HHS = 'Himmi Herrgott Sakrament, Wert größer Null';
var
  Abzug: Integer;
begin
  Preis := StrToIntDef(InputBox('Preis angeben', GBGN, '100'), 0);
  if Preis <= 0 then raise Exception.Create(HHS);

  Abzug := StrToIntDef(InputBox('Abzug (Ersatz für Button mit Preis) angeben', GBGN, '100'), 0);
  if Abzug <= 0 then raise Exception.Create(HHS);

  //----------------------------------------------------------------------------

  Preis := Preis - Abzug; //100 erstetzt durch Variable Abzug;
  L_Rest.Caption:=inttostr(Preis)+'€';
  if Preis <=0 then
  begin
    L_Wechsel.Caption := 'Ihr Wechselgeld: ' + IntToStr((Preis-Wechsel)*-1)+'€';
    L_Rest.Caption := IntToStr(0)+'€';
    Wechsel := Wechsel + Abzug; //100 erstetzt durch Variable Abzug;
    //... das ist hier unwichtig
    B_Wechsel.Enabled := False;
    B_zumTicket.Enabled := True;
  end;

  if Wechsel > 0 then
  begin
    B_Wechsel.Enabled := True;
    B_zumTicket.Enabled := False;
  end;
end;

Man bracht zwei Buttons und Labels. Danach kann man tasten was passiert wenn man etwas angibt.

Also es ist mir bisher nicht gelungen was der TE vor hatte. Der Button bleib immer an.