Datasnap 2010 + Sql server

Estou estudando DataSnap 2010 e me add no msn para trocarmos ideias.
delmar@deltacorp.com.br

A princípio no cliente da forma tradicional usa SQLConnection setando driver DataSnap << TDSProviderConnection (não lembro bem o nome do componente) da aba DataSnap Client << e um ClientDataSet

Mas tem outras formas de se trabalhar:
executando métodos
procedure TFrmPrincipal.Button1Click(Sender: TObject);
begin
  ServerMethodPegaDataHora.ExecuteMethod;
  Edit1.Text := ServerMethodPegaDataHora.Params[0].AsString;
end;

executando métodos via proxi
procedure TFrmPrincipal.Button2Click(Sender: TObject);
var
  SM : TServerModuleClient;
begin
  SM := TServerModuleClient.Create(ServerConnection.DBXConnection);
  Edit1.Text := DateTimeToStr(SM.PegaDataHora);
  SM.Free;
end;

ou ainda usando um SqlServerMethod via open do ClintDataSet
SQLConnection << SqlServerMethod << DataSetProvider << ClientDataSet

procedure TFrmPrincipal.Button3Click(Sender: TObject);
begin
  CdsClientes.Close;
  CdsClientes.Params[0].AsString := Edit2.Text + '%';
  CdsClientes.Open;
end;

procedure TFrmPrincipal.Button4Click(Sender: TObject);
begin
  CdsClientes.ApplyUpdates(0);
end;

procedure TFrmPrincipal.Button5Click(Sender: TObject);
begin
  if CdsClientes.RecordCount > 0 then
  begin
    CdsClientes.Delete;
  end;
end;

procedure TFrmPrincipal.CdsClientesCalcFields(DataSet: TDataSet);
begin
  if DataSet.State = dsInternalCalc then
  begin
    if CdsClientesSTATUS.AsString = '0' then
      CdsClientesVirtstatus.AsString := 'Inativo'
    else if CdsClientesSTATUS.AsString = '1'  then
      CdsClientesVirtstatus.AsString := 'Ativo';
  end;
end;

procedure TFrmPrincipal.CdsClientesReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
  raise EDatabaseError.Create(E.Message);
end;

Estou apenas no começo também.
Mas podemos ir trocando o que encontramos.

Da forma tradicional no servidor fica SQLConnection << SQLDataSet << DataSetProvider