[Paulao]

Hizo esto, pero no estas funcionando. No entra en el for, qryOcorrencias es mi query donde viene el Grid y cdsocorrencias es la que tiene mis campos agregados.

Código Delphi [-]
var
contador: Integer;
bkm: TBookmarkList;
bkm_str: TBookmarkStr;
begin
  bkm_str := qryOcorrencias.Bookmark;
  bkm     := grdOcorrencias.SelectedRows;

  if not cdsOcorrencias.Active then
        cdsOcorrencias.Open;

  //With Grid do
    for contador:= 0 to pred(bkm.Count) do
    Begin
      qryOcorrencias.BookMark := bkm[contador];
      cdsOcorrencias.Append;
      cdsOcorrencias.FieldByName('NUM_OCORRENCIA').AsString := copy(Grid.Fields[1].AsString,Pos('-',Grid.Fields[1].AsString)-1,255);
      cdsOcorrencias.FieldByName('PDF').AsString := Grid.Fields[3].AsString;
      cdsOcorrencias.FieldByName('ALIMENTADOR').AsString := Grid.Fields[4].AsString;
      cdsOcorrencias.FieldByName('SUB_ESTACAO').AsString := Copy(Grid.Fields[4].AsString,1,3);
      cdsOcorrencias.FieldByName('QTDE_COMUNICACAO').AsString := Grid.Fields[13].AsString;
      cdsOcorrencias.Post;
    end;
  end;