Tabla y DataSnap

[usuario1000]

Perdonad mi torpeza, pero no lo consigo, tengo el siguiente codigo:

Código Delphi [-]
procedure TFExtractoCoste.bSalirClick(Sender: TObject);
var
  funcion: Tservermethods1client;
  s:string;
  TablaCadena:TStringStream;
begin

  if tablaRojos.RecordCount = 0 then
        exit;

  funcion := Tservermethods1client.Create
    (FModuloDatos.SQLConnection.DBXConnection);

  TablaCadena := TStringStream.Create(s);
  TablaRojos.SaveToStream(TablaCadena);
  funcion.enviarTablarojos(tablaCadena);

    close;
end;

Me da error, no logro enviar una MemTable a través de la funcion para que llegue al servidor.


Gracias a todos