Delphi - No encuentro ayuda a esto hace dias ...

Resulta que quiero mandar un archivo entre el TClientSocket y el TServerSocket, y no puedo hacerlo, el envio del archivo lo hago bien..

varFile := TMemoryStream.Create;
varFile.LoadFromFile('dune.jpg');
ServerSocket1.Socket.Connections[0].SendStream(varFile);

El problema es con la llegada que no se como hacer para asignar el buffer al stream.

e:=ClientSocket1.Socket.ReceiveLength;
Socket.ReceiveBuf(buf,e);
Stream.ReadBuffer(buf, e);

EL GRAN PROBLEMA ES QUE NO SE COMO PASAR DE BUFFER A STREAM, y que tipo de variable tiene que ser el buffer, Pchar ?? Char ?? String ???.

Trato de hacer esto, pero no me resulta, lo intentado de 1000 maneras, pero me podrian ayudar a realizar este codigo por favor.

Pues yo trabajo con los componentes Indy y la tranferencia de archivos es muy simple
Del lado del servidor con el método Writeln envias
Del lado del cliente con el método Readln recibes, luego lo bajas a disco como si fuera cualquier otro archivo, ya sea con streams, o blockwrite.
No sé qué suites de componentes estas usando.