Über Indy versandte Dateien lassen sich nicht öffnen

[Benni0811]

Also mein Code sieht jetzt so aus:

Sender:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
Var FStream:TFileStream;
begin
    FStream := TFileStream.Create(filename, fmOpenRead);
    with IdTcpClient1 do begin
        Connect;
        Socket.Write(FStream);
        Disconnect;
    end;
    FStream.Destroy;
end;

Empfänger:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
Var
  FStream: TFileStream;
begin
    FStream := TFileStream.Create(filename, fmCreate);
    FStream.Position := 0;
    with AContext.Connection do begin
        Socket.ReadStream(fstream);
        Disconnect;
    end;
    FStream.Destroy;
end;

Die Dateien lassen sich aber immernoch nicht öffnen. Ich habe die Dateien auch mit HxD-HexEditor geöffnet und sie sind unterschiedlich. Außerdem habe ich mal eine .txt-Datei verschickt, da hat alles perfekt funktioniert.