Du fragst doch Preis auf <= 0 ab. Wenn das so ist, enable doch den Button.
Delphi-Quellcode:
if Preis<=0 then
begin
lbPreis.Caption := FloatToStrF(0,ffCurrency,6,2);
lbWechsel.Caption := FloatToStrF(-Preis,ffCurrency,6,2);
Preis := 0;
btWechsel.Enabled := True; //hier
end
else lbpreis.Caption:=FloatToStrF(Preis,ffCurrency,6,2);
Wobei ich es ganz allgemein besser gefunden hätte, Logik und Darstellung zu trennen, aber das muss man erst einmal lernen und verstehen
