Gebühren in währungssrechner

[Jack Spades]

wenn ich das jetzt wie du machen möchte und die check box nutze
kann ich dann

Delphi-Quellcode:

Procedure MachWasMitGebuehrErheben;
begin
  if GebuehrErheben then
  begin
    result:=floattostr(strtofloat(eingabe)-5)
  end
  else
  begin
    result:=floattostr (strtofloat(eingabe))
  end;

schreiben? oder hab ich dann einen fehler?
nur mal neben bei, nutze die TEdit für meine eingaben