Hola, antes que nada muchas gracias por responder ,al fin alguien me puede dar una ayuda , bueno la vdad no tengo la menor idea de como manejar esto de enviar y recibir archivos por socket el codigo lo saque de otro foro y fui trantando de entenderlo ejecutandolo varias veces y cambiandole algunas cosas. Te dejo el codigo que envia el archivo:

procedure TForm1.Button1Click(Sender: TObject);
var
strm:TMemoryStream;
begin
strm:=TMemorystream.Create;
strm.LoadFromFile('C:\Pruebaa.txt');
clientsocket1.Socket.SendText('TOMA');
clientsocket1.socket.SendStream(strm);
end;
 

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  size: Integer;
  strcom, com:string;
  nreceived,i:integer;
  Stream:  TMemoryStream;
  buffer: array  [0..99999] of char;
begin
 strcom:=Socket.ReceiveText;
 if pos('TOMA',strcom)=1 then
  begin
        Stream := TMemoryStream.Create;
        Screen.Cursor := crHourglass;
        try
          while True do
          begin
            nReceived := Socket.ReceiveBuf (Buffer, sizeof (Buffer));
            if nReceived <= 0 then
              Break
            else
              Stream.Write (Buffer, nReceived);
            Sleep (200);
          end;
          Stream.Position := 0;
          stream.SaveToFile('C:\Prueba.txt');
        finally
          Stream.Free;
          Screen.Cursor := crDefault;
        end;
  end;