Problem in der Procedur: Meldungsfenster kommt immer wieder

[Fussel9]

Hi hab folgendes Problem:

Delphi-Quellcode:

procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    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;

diese Procedur ruft sich immer wieder auf...