Socket y directorios en delphi

[NETwolf]

Hola que tal mundo, soy nuevo en el foro asi que pido mil disculpas si es que me equivoque de seccion. Eh aca mi problema:

Estoy haciendo un programa con sockets de delphi y lo que quiero que haga mi programa es que cuando , tanto el server como el cliente se conecten, ambos puedan compartir los directorios y archivos que tiene en sus computadoras de origen. Pero no se como hacer para que mis datos se pasen de un socket a otro ya que la otra ves buscando si encontre como hacer para navegar a traves de mis directorios y archivos con un memo y un edit pero no puedo hacer que esos datos sean pedidos y concedios, tanto por el server como el cliente. Este es el ejemplo que encontre para poder visualizar todos los datos en un memo a traves de las direcciones puestas en un edit:

Código Delphi [-]
procedure ListaDirectorios(var lista:
  TStrings; dirPadre: string);
var
  SR: TSearchRec;
begin
  dirPadre := IncludeTrailingPathDelimiter(dirPadre);
  FindFirst(PChar(dirPadre + '*'), faDirectory, SR);
  repeat
    lista.Add(SR.Name);
  until (FindNext(SR) <> 0);
  FindClose(SR);
  end;

Código Delphi [-]
procedure TForm1.ClienteRead(Sender: TObject; Socket: TCustomWinSocket);
var
directorios: TStrings;
begin
if directoryexists(edit1.text) then
begin
directorios := TStringList.Create;
ListaDirectorios(directorios, edit1.text);
memo1.lines.add(directorio.text);
directorios.Free;
end
end;

Bueno reitero la pregunta, ¿como puedo hacer para que los datos de direcotorios y archivos que tenga una computadora sean transferidos a servidor con las direcciones que proporcione este mismo y viceversa

De antemano muchisimas gracias

y saludos

PD: ya quise ver que pasaba cuando le pedia al cliente los datos a trabes del servidor pero me salia el error sendto(10057) y me dice que el socket no esta conectado y que por eso no se pueden enviar los datos. Pero el socket si estaba conectado y despues se cierra la conexion