Передача файлов по сети с клиента на сервер

[&&blad&&]

Хочу передать фаил по сети с клиента на сервер используя serverSocet и klientSocet. Во время передачи файлов программа выдаёт ошибку: Asynchronous socket error 10061, что я делаю неверно?

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var y:TFileStream;
  name: String;//Путь к файлу
begin
     y.Create(Name,fmOpenRead);
     y.Position:=0;
     ClientSocket1.Socket.SendStream(y);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var Len:Integer;
    bufarray: array of byte;
    strStream: TMemoryStream;
    Name: String;//Путь к месту сохранения файла
begin
  len:=ServerSocket1.Socket.ReceiveLength();
  SetLength(bufarray,Len+1);
  strStream:=TmemoryStream.Create;
  strStream.Position:=0;
  ServerSocket1.Socket.ReceiveBuf(bufarray,len);
  strStream.WriteBuffer(bufarray,Len);
  strStream.Position:=0;
  strStream.SaveToFile(Name);
  strStream.Destroy;
  SetLength(bufarray,0);
end;

[Bad-XxX]

Вы работаете с асинхронными сокетами. Для них нужно использовать соответствующие события на чтение и на запись, просто последовательно - не выйдет/ Для последровательного чтения/записи можно использовать вполне удобную библиотеку indy (TIdTCPClient / TIdTCPServer), что будет куда проще.

[&&blad&&]

Сообщение от Bad-XxX

Для них нужно использовать соответствующие события на чтение и на запись, просто последовательно - не выйдет

Bad-XxX Спасибо за ответ.
Немного поправил код и ошибка исчезла.
Но не могу понять какие тараметры надо передать в функцию отправки файлов: ClientSocket.OnWrite(?,?);