Fenster verschwindet

[Hansa]

Hi,

mühsam ernährt sich das Eichhörnchen. Man sehe sich mal weiter oben an, wie es da aussah.

Code:

  ELSE BEGIN
    Edit1.Enabled := true;
    Edit1.Text := '';
    IF NOT Button1.Focused THEN
      Edit1.SetFocus;
    Button1.Enabled := true;
    Button2.Enabled := true;
  END;

Jetzt muß ich mir aber noch einen Button vorknöpfen, den ESC Ende Button. Da kriege ich bestimmt ähnlichen Ärger.

Gruß

P.S.: Das ist die Stelle, falls Edit1.Text = '' ist.
Hansa