procedure TMainForm.Button1Click(Sender: TObject);
var i:integer;
begin
dataSetBroker1.DataSet.Open;
dataSetBroker2.DataSet.Open;
for i :=0 to dataSetBroker1.DataSet.RecordCount -1 do
begin
dataSetBroker2.DataSet.Append;
dataSetBroker2.DataSet.FieldByName('ZD1').AsString :=dataSetBroker1.DataSet.FieldByName('FGUID').AsString;
dataSetBroker2.DataSet.FieldByName('ZD2').AsString :=dataSetBroker1.DataSet.FieldByName('FDISPLAYNAME').AsString;
dataSetBroker1.DataSet.Next;
end;
dataSetBroker2.DataSet.ApplyUpdates;
end;