Halt ne CheckBox aufs Form und im Objektinspektor unter Ereignisse das OnClick Ereignis dieser CheckBox doppelklicken und von mir aus noch eine Boolean Variable.
Delphi-Quellcode:
var
GebuehrErheben: Boolean;
procedure TForm1.CheckBoxClick(Sender: TObject);
begin
GebuehrErheben:= CheckBox1.Checked;
end;
Procedure MachWasMitGebuehrErheben;
begin
if GebuehrErheben then
begin
..
end
else
begin
..
end;
end;