Danke Himitsu,
nun bleibt er an folgender Stelle haengen:
Code:
procedure TModifierFrm.ModifierClick(Sender: TObject);
const
Busy : Boolean = False;
var
L : LongInt;
D : TDateTime;
begin
if Busy then
Exit;
{set busy flag so that setting "Checked" won't recurse}
Busy := True;
Das kann doch auch eigentlich garnicht funktionieren der Konstanten Busy einen Wert zuzuweisen ...