Stack-Überlauf nach einiger Zeit

[Aike]

Ich weiß nicht, wonach ich suchen soll, daher kann ich es nicht eingrenzen. Ich teste es jetzt nochmal, ob es vielleicht daran lag:

Delphi-Quellcode:

procedure TForm1.AnClick(Sender: TObject);
begin
  An.Checked:=not An.Checked;
  if An.Checked then
  begin
    //TuDiesUndJenes
    Aus.Checked:=False;
  end
  else
    Form1.AusClick(Sender);
end;


procedure TForm1.AusClick(Sender: TObject);
begin
  Aus.Checked:=not Aus.Checked;
  if Aus.Checked then
  begin
    //HinUndHer
    An.Checked:=False;
  end
  else
    Form1.AnClick(Sender);
end;

Aber das hatte ich schonmal so und da ist nix passiert.