tfilestream fehler beim versenden einer exe

[1aa]

ich versuche zz ein programm per tfilestream über einen indy socket zu versenden das versenden funktioniert auch soweit nur wenn ich versuche ein .exe programm zu versenden erhalte ich die fehlermeldung: `der prozess kann auf die datei nicht zugreifen da sie von einem anderem prozess verwendet wird`
was aber nicht sein kann da das programm nicht geöffnet ist.
code :

Delphi-Quellcode:

senden:
  hStream := TFileStream.Create(Name,fmOpenRead);
   try
    hSize := (HStream.Size);
    hStream.Position := 0;
    fSocket.WriteStream(hStream,hSize);
   finally
    hStream.free;
   end;

empfang:

  hStream := TFileStream.Create('Test.exe',fmCreate);
  aClient.ReadStream(hStream,hSize);
  hStream.Free;
end;