Delphi TCP Daten Senden / Empfangen

[XzErO]

Hallo,

Ich will gerne Daten z.b. MP3, Exe, usw. versenden (Client -> Server. Server -> Client)

Jetzt will ich eine Datei von Server an denn Client Senden, nur weiß ich nicht wie ich das machen sollte. (Benütze Indy10)

Wie ich eine Datei an denn Server sende weiß ich schon.

Delphi-Quellcode:

//Server. Empfangen
procedure TDesktop.IdTCPServerExecute(AContext: TIdContext);
var
  FSTream: TFileStream;

begin
  With IniDat do begin
  FStream := TFileStream.Create('C:\datei.exe', fmCreate);
  end;
  try
    AContext.connection.IOHandler.ReadStream(fstream);

  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
end;

//Client. Senden
FStream := TFileStream.Create('C:\datei.exe', fmOpenRead);
    idtcpclient.Connect;
        try
        idtcpclient.IOHandler.Write(Fstream,0,true);
        finally
        idtcpclient.Disconnect;
        end;
    FreeAndNil(FStream);

Danke.