[v1s2222]

Поток создавать не надо, напиши так:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// на крайняк - CanClose := True;
  Application.Terminate;
end;