[Paulao]

Hizo asi. Criei una class para cargar todos los datos

Código Delphi [-]
type
  TInsereLista = class
    Counter: Integer;
    Num_Ocor: String[10];
    Pdf: String[20];
    Alimentador: String[10];
    Sub_estacao: String[5];
    Qtde_Comunicacao: Integer;
end;

Despues implemntei esa classe y puzo los registros asi: El memo fue solo para hacer un test. Ahora tengo que abri otro Form y descargar esto en un DataSet para poder ser visto en una Grid o otra cosa parecida.

Código Delphi [-]
var
contador: Integer;
bkm: TBookmarkList;
bkm_str: TBookmarkStr;
Lista: TInsereLista;
begin
  Lista := TInsereLista.Create;
  bkm_str := qryOcorrencias.Bookmark;
  bkm     := grdOcorrencias.SelectedRows;
  a := Assigned(frmAssociarOcor_Ocor_Direta);
  for contador:= 0 to pred(bkm.Count) do
  Begin
    qryOcorrencias.BookMark := bkm[contador];
    Lista.Num_Ocor := copy(Grid.Fields[1].AsString,Pos('-',Grid.Fields[1].AsString)-1,255);
    Lista.Pdf := Grid.Fields[3].AsString;
    Lista.Alimentador := Grid.Fields[4].AsString;
    Lista.Sub_estacao := Copy(Grid.Fields[4].AsString,1,3);
    Lista.Qtde_Comunicacao := Grid.Fields[13].AsInteger;

    //memo1.Lines.Add(IntToStr(Contador)+' '+Lista.Num_Ocor+' '+Lista.Pdf+' '+Lista.Alimentador+' '+Lista.Sub_estacao+' '+IntToStr(Lista.Qtde_Comunicacao));
  end;