Delphi - recoger BD en clientdataset

Me gustaría poder ir recogiendo los datos de dos columnas de una base de datos e ir metíendolas (en campos de XML) en un clientdataset, de manera que los recogo en una tabla del clientdataset. Yo he hecho esto , pero me faltan cosas y no sé qué está mal;

Consulta.Close;
Consulta.SQL.Clear;

while not(Consulta.EOF) do
begin
ClientDataSet1.Close;
ClientDataSet1.ClearFields;
while not ClientDataSet1.EOF do
begin

Consulta.Close;
Consulta.SQL.Clear;
Consulta.SQL.Add ('SELECT User_Id, Last_Name FROM tbUsers ');
Consulta.Open;
Consulta.First;

ClientDataSet1.Open;
Clientdataset1.First;

ClientDataSet1.Edit;
Clientdataset1['numero']:=Consulta.FieldByName('User_Id').AsString;
Clientdataset1['nombre']:=Consulta.FieldByName('Last_Name').AsString;
Clientdataset1['numero'].next;
Clientdataset1['nombre'].Next;
end;
Consulta.Next;
end;