DataSnap i zwracanie wartości przez funkcję.

{ Zwraca liste użytkowników }
function TServerMethods.GetListUsers: TStringList;
var
  X: Integer;
  MyData: TMyQuery;
begin
  Result := TStringList.Create;
  MyData := TMyQuery.Create(nil);
  try
    MyData.Connection := FServer.MyConnection;
    MyData.SQL.Text := ('SELECT ' + raf_login + ' FROM ' + Key_RafloUser);
    MyData.Active := True;
    MyData.First;
    while not MyData.Eof do
    begin
      Result.Add(MyData.FieldByName(raf_login).AsString);
      MyData.Next;
    end;
  finally
    MyData.Free;
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  Temp: TServerMethodsClient;
begin
  if not DataSnapConnection.Connected then
    DataSnapConnection.Open;
  Temp := TServerMethodsClient.Create(DataSnapConnection.DBXConnection);
  try
    ComboBox1.Items := Temp.GetListUsers;
  finally
    Temp.Free;
    DataSnapConnection.Close;
  end;
end;

procedure TServerMethods.GetListUsers(var ListUser:TStringList);

{ Zwraca liste użytkowników }
function TServerMethods.GetListUsers: TDataSet;
var
  MyData: TMyQuery;
  ClientDataSet1 : TClientDataSet;
begin
  ClientDataSet1 := TClientDataSet.Create(nil);
  MyData := TMyQuery.Create(nil);
  ClientDataSet1.Close;
  ClientDataSet1.FieldDefs.Clear;
  ClientDataSet1.FieldDefs.Add('field1',ftString,20);
  ClientDataSet1.CreateDataSet;
  try
    MyData.Connection := FServer.MyConnection;
    MyData.SQL.Text := ('SELECT ' + raf_login + ' FROM ' + Key_RafloUser);
    MyData.Active := True;
    MyData.First;
    while not MyData.Eof do
    begin
      ClientDataSet1.AppendRecord([MyData.FieldByName(raf_login).AsString]);
      MyData.Next;
    end;
    result := ClientDataSet1;
  finally
    //ClientDataSet1.Free;
    MyData.Free;
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  link: TServerMethodsClient;
  DS: TdataSet;
  X : Integer;
begin
  if not DataSnapConnection.Connected then
    DataSnapConnection.Open;

  Link := TServerMethodsClient.Create(DataSnapConnection.DBXConnection);
  try
    DS := Link.GetListUsers;
    DS.First;
    Combobox1.Clear;
    while not DS.Eof do begin
      combobox1.Items.Add(DS.FieldByName('field1').AsString);
      DS.Next;
    end;
  finally
    Link.Free;
    DataSnapConnection.Close;
  end;
end;

ClientDataSet1 := TClientDataSet.Create(nil);