Formular schliessen im "OnActivate"

[xZise]

Das ist jetzt aber irgendwie seltsam
Im Test (ohne irgendetwas), schloss sich das Fenster wie erwartet, aber so nicht:

Delphi-Quellcode:

procedure TfrmInstall.FormActivate(Sender: TObject);
var
  lStream: TFileStream;
  fileData, extract : string;
  write : Boolean;
begin
  if status = NOT_STARTED then
  begin
    status := STARTED;
    
    item := 0;

    while status = STARTED do
    begin
      ind(item);
      if item > High(data) then
        status := FINISHED;
    end;
    bFinalize.Caption := 'Finalize';
  end;

  if (status = FINISHED) and (autoclose) then <!---
    close; <!---
end;

Und er springt auch in das Close; rein