Delphi - Enviar archivos por socket.

Agredeceria mucho cualkier ayuda o ejemplo que me sirva para enviar archivos por socket; se como enviar un archivo con un clientsocket. Uso este codigo:

procedure TForm1.Button2Click(Sender: TObject);
var
strm:TMemoryStream;
begin
strm:=TMemorystream.Create;
strm.LoadFromFile('ejemplo.exe');
clientsocket1.Socket.SendStream(strm);
end;

Pero no se como recibirlo, no lo consigo. Y me gustaria recibirlo y guardarlo en un archivo, por ejemplo, guardarlo como: "C:\ejemplo.exe".
Muchisimas gracias po su ayuda,
kiutrexio.

En esta página tienes un ejemplo de cómo hacerlo usando los componentes Indy (Delphi 6)
www.geocities.com/diegofrom sección Delphi.