halt; und Application.terminate funktioniert nicht

[Obstfliege]

Code:

procedure TMainForm.OnThread;
begin
  EdFile.Show;
  Progressbar.Hide;
  Link:=Receive;
  EdFile.Text:=Receive;
  if CopyToClipboardAfterParameterUpload then
    Clipboard.AsText:=Link;
  if CloseAfterParameterUpload and IsParameterUpload then
  begin
    halt;
    Application.Terminate;
  end;
end;

ich habe es mit einer showmessage getestet er geht in die if anweisung rein!
dort habe ich nun halt und Application.terminate ausprobiert und beides geht nicht.