Problem mit TForm.Close

[fwsp]

Hallo,

ich hab ein kleines Problem:
ich habe ein Form, die anzeigen lasse. Im OnShow wird folgender Code ausgeführt. Bei Erfolg soll sich die Form Selbst schließen. Jedoch Passiert das nicht. Im Debugger kann ich sehen, das GoodSyntax True ist, er geht in in den If-Teil. Bearbeitet wohl auch das Close. Aber es schließt sich nicht.

Kann mir jmd helfen?

Delphi-Quellcode:

procedure TfrmCheck.FormShow(Sender: TObject);
var
  i: Integer;
begin
  BtnOK.Enabled := False;
  ProgBar.Max := frmMain.memEdit.Lines.Count;
  frmMain.GoodSyntax := True;
  ProgBar.Position := 1;
  memError.Clear;

  for i := 0 to frmMain.memEdit.Lines.Count - 1 do
  begin
    if not frmMain.RegisterMaschine.CheckSyntax(i) then
    begin
      frmMain.GoodSyntax := False;
      memError.Lines.Add('Fehler in Zeile: ' + IntToStr(i + 1));
    end;
    ProgBar.Position := i + 1;
    Application.ProcessMessages;
  end;

  BtnOK.Enabled := True;
  if frmMain.GoodSyntax then // GoodSyntax ist True
  begin
    Close;  //Wird nicht ausgeführt
  end;
end;