tdbgrid como tabla de referencia

[jrla]

hola gracias por tu respuesta no estoy tan perdido como dije anterior mente tengo un dbgrid1 con datos filtrados atreves de un query que me muestra todo los trabajadores que están en un departamento... ahora que cuando el usuario seleccione en el dbrid1 los que se van de vacaciones y al presionar el button me pase dicha selección a dbgrid2 ............. en el dbgrid1 tengo las opciones activas row select y multi select

Código Delphi [-]
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.CreateDataSet;
  ClientDataSet1.Open;
end;

procedure TForm1.btnPasarRegistroClick(Sender: TObject);
var
  i: Integer;
begin
  ClientDataSet1.Append;
  with DBGrid1.DataSource.DataSet do         // de aquí es que me pierdo por el do sin el while 
   for i:= 0 to FieldCount-1 do
     ClientDataSet1.Fields[i].Value := Fields[i].Value; // asta aquí
  ClientDataSet1.Post;
end;