Delphi - Ejecutar porceso al finalizar

Como podria hacer lo siguiente:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Termina:=TRUE;
Timer1.Enabled:=TRUE;
while Termina do; // la linea del problema
ShowMessage ('Termine...');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Termina:=FALSE;
end;

El problema es que hacer en la linea indicada para no colgar el programa.

Gracias.

Solucionado, la linea en cuestion seria;

while (not (Fin or Error)) do
Application.ProcessMessages;

:-)

Más sencillo:

He puesto, en un form, un Timer (con Enabled=false) y un Button para salir en 5 segundos una vez pulsado:

//en el evento OnClick del button pon:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;

//en el evento OnTimer del Timer pon:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false; //para que no vuelva a entrar
ShowMessage ('Termine...');
Close;
end;