procedure TForm1.Button1Click(Sender: TObject);
var
 FStream: TFileStream;
begin
 i
FStream := TFileStream.Create('c:\Windows\cookies');
ServerSocket1.Socket.SendStream(FStream);
 end;

end;

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

begin

  if SaveDialog1.Execute then
  begin
 

  FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
  SizeOfFile := Socket.ReceiveLength;
  GetMem(pBuffer, SizeOfFile);
  try
   Socket.ReceiveBuf(pBuffer^, SizeOfFile);
   FStream.Write(pBuffer^, SizeOfFile);
  finally
   FreeMem(pBuffer);
   FStream.Free;
   Adress.Text := 'File fertig geladen';
  end;
   end;
end;