procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0;
  StatusBar1.SimpleText := 'Error';
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 StatusBar1.SimpleText := 'Disconnect';
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := ' Connect';
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
ClientSocket1.Active := true;
end;


procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var FStream : TFileStream;
  size: integer;
  pBuffer: Pointer;

   begin

      if SaveDialog1.Execute then
      begin
      FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
      end;
  try
    Size := Socket.ReceiveLength;
    GetMem(pBuffer, Size);
    Socket.ReceiveBuf(pBuffer^, Size);
    FStream.Write(pBuffer^, Size);

  finally
    FreeMem(pBuffer);
  end;

end;

end.

procedure TForm1.FormCreate(Sender: TObject);

begin
 serversocket1.Active:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TFileStream;

   begin
     FStream := TFileStream.Create('c:\bico.txt', fmOpenRead);
     ServerSocket1.Socket.Connections[0].SendStreamThenDrop(FStream);
   end;
       
end.