Problem in der Procedur: Meldungsfenster kommt immer wieder

[Uwe Raabe]

Zitat von Fussel9:

Und was kann ich dagegen tun?

Delphi-Quellcode:

procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    TLemonTimer.Enabled := false;  // verhindert ein erneutes Auslösen
    if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      Close;
      Editor:=TEditor.create(self);
      Editor.Show;
    end;
  end;
end;