Отправка огромных файлов по socket

procedure TForm1.Button1Click(Sender: TObject);
begin
 ServerSocket1.Active := true;
end;
 
procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('lol');
end;
 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   showmessage('lol');
end;
 
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 showmessage('lol');
end;
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 showmessage('lol');
end;
 
procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 showmessage('lol');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  buffstr: TStringStream;
begin
  buffstr := TStringStream.Create;
  buffstr.WriteString('zxc');
  buffstr.position := 0;
  ClientSocket1.Address := '127.0.0.1';
  ClientSocket1.Port := 5555;
  ClientSocket1.Socket.SendStream(buffstr);
  //buffstr.free;
end;