formdestroy og ventetid

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Sleep(2000);
end;

men Sleep afbryder tråden i det angivne intervel, så der udføres intet i den periode.
Skal du bruge de 2 sek til at lukke noget andet ned kan du sætte en timer på main-formen som styrer lukketidspunktet:

procedure TForm4.Timer1Timer(Sender: TObject);
begin
TilladLuk:=true;
close;
end;

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Label1.Caption := 'Lukkeanmodning';
if TilladLuk then
  canClose:=true
else
  begin
  timer1.Enabled:=true;
  canClose:=false;
  end;
end;

Hvorfor vil du have den til at vente i et par sekunder? Skal der laves noget eller er det bare en slags terminerende "nag-screen"?