Keine minuswerte anzeigen bei Prozentrechnung

[bernerbaer]

Wie wärs mal damit (nur so hingetippt ohne Überprüfung)?

Delphi-Quellcode:

var
c_ziel, c_Umsatz, c_Prozent:   Currency;

begin
   if TryStrToCurr(Monatsziel.Text,c_ziel) and TryStrToCurr(Umsatz.Text,c_umsatz) then
   begin
      c_Prozent:= c_ziel/100*40 - c_Umsatz;
      if c_Prozent >=0 then
        provi1togo.Caption:=  CurrToStrF(c_Prozent, ffGeneral, 2)
      else
        provi1togo.Caption:= 'Umsatzziel erreicht';

   end
   else
    ShowMessage('Geben Sie gültige Werte ein');

end;