idHTTP Dateien lassen sich erst nach Programme öffnen

[Deltachaos]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stream: TFileStream;
begin
  stream:=TFilestream.create('ver_info.ini',fmcreate );
  form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/aktuelle_version.txt',stream);
  stream:=TFilestream.create('th_upd.exe',fmcreate );
  form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/enigmad/th_upd.exe',stream);
  stream:=TFilestream.create('unrar.dll',fmcreate );
  form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/unrar.dll',stream);
  form1.IdHTTP1.Disconnect; < versuch
  stream.Free;
  ShellExecute(Application.Handle,'open',PChar('th_upd.exe'),PChar(''),PChar(''),SC_DEFAULT);
  form1.close;
end;

Hallo ich habe das Problem das sich th_upd.exe nicht öffnet. ich glaube das das daran liegt das idHTTP diese noch geöffnet hat und erst nach beenden des Programms der Icon der Datei erscheint.
kann mann irgendwie die Datei schliesen oder irgendwie eine kurtz zuvor Heruntergeladene Datei öffnen