Form.Close funktioniert manchmal nicht

[Flippo]

Hallo,

also mein Problem ist folgendes. Ich lese Daten aus Textdateien ein und speichere diese dann in einer Datenbank. (Das funktioniert ohne Fehlermeldungen und die Daten sind auch da wo sie sein sollen.) Den Fortschritt dieses Einleseprozesses gebe ich auf einer Form Namens frmProgress aus. Leider schließt sich frmProgress manchmal trotz fehlerfreiem Einlesevorgang nicht, wenn das Einlesen beendet ist.(Der Einlesevorgang wird auch beendet, in frmProgress wird "Fertig" ausgegeben, bis zu dieser Zeile läuft der Code also auch durch)
Der Abbrechen Button, der frmProgress normalerweise auch schließen sollte hat auch keine Wirkung, wenn der Fehler auftritt.
Ich konnte leider auch keine Struktur hinter den Fehlern erkennen, bei ein und demselben Datensatz schließt sich die Form manchmal und manchmal eben nicht.

Da der Einlesevorgang recht lange dauert und man manchmal das Fenster minimiert usw. hatte ich zuerst den Verdacht das es damit zusammenhängen könnte. Aber auch da konnte ich keine festen Zusammenhänge feststellen.

Habt ihr Ideen woran es liegen könnte? Habt ihr irgendwelche Erfahrungen mit verrückt erscheinenden nicht schließbaren Forms, die weiterhelfen könnten?

(Ich habe bei meiner Suche Themen mit "CloseQuery" gefunden, was wohl verhindern kann, dass eine Form geschlossen wird, aber da sind alle Werte so wie sie sein sollen)

Danke schonmal an alle die sich damit beschäftigen

MfG

Flippo

Hier der Code:

Delphi-Quellcode:

procedure TfrmMain.ImportData(Sender: TObject);
var
.
.
begin
  database.enableStandFiler(false);
  if frmDataImport.showModal(false) = mrOk then begin
    frmProgress.Show('Importiere Daten...', false, true, true, true, self);
    frmProgress.addLine('Lese Daten...');
    .
    .
    .
    frmProgress.addLine('Analysiere und schreibe Daten in die DB...');
    application.ProcessMessages;
    .
    .
    .
    //Routinen die Daten in die Datenbank schreiben
    .
    .
    .
    database.openDataSets(actProject.actStand, actProject.actBereich);
    self.pageControlDatenChange(Sender);
    frmProgress.addLine('Fertig.');
    application.BringToFront;
    application.ProcessMessages;
    sleep(1500);
  end;
  frmProgress.close;
end;


procedure TfrmProgress.show(caption:String; show_bar, show_memo, show_btnAbort,beep: boolean; Sender: TControl);
begin
  inherited show;
  self.mySender := sender;
  self.mySender.Enabled := false;
  self.ModalResult := mrNone;
  .
  . 
  .
  //unwichtige Zuweisungen a la Memo1.visible:=false;
  .
  .
  .
end;


procedure TfrmProgress.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.mySender.Enabled := true; // Aufrufer wieder Aktivieren
  if signalEnd then beep;
end;