[Paulao]

Este es mi codigo completo. No estoy conseguindo hacer funcionar. las lineas en rojo que mi gustaria de hacer el cierto. Si alguien mejorar el codigo, me quedo grato, pues acepto sugestiones.

Código Delphi [-]
procedure TfrmOcorrenciaPendente.grdOcorrenciasCellClick(Column: TColumn);
var
  i,k: integer;
  bkm: TBookmarkList;
  bkm_str: TBookmarkStr;
  procedure popula_lista;
  var
    j: integer;
  begin
    lista_ocorrencia.Add(copy(grdOcorrencias.Fields[1].AsString,1,4)+';'+
                         copy(grdOcorrencias.Fields[1].AsString,6,Length(grdOcorrencias.Fields[1].AsString))+';'+
                         grdOcorrencias.Fields[3].AsString+';'+grdOcorrencias.Fields[4].AsString+';'+
                         Copy(grdOcorrencias.Fields[4].AsString,1,3)+';'+grdOcorrencias.Fields[13].AsString);
    for j := 0 to Pred(grdOcorrencias.SelectedRows.Count) do
      if j = 11 then
        lista_ocorrencia.Delete(j);
  end;

begin
  if not Assigned(lista_ocorrencia) then
    lista_ocorrencia := TStringList.Create;
  bkm_str := qryOcorrencias.Bookmark;
  bkm     := grdOcorrencias.SelectedRows;

  if grdOcorrencias.SelectedRows.Count > 11 then
  begin
    MessageDlg('Só é permitido associar 10 ocorrências a uma ocorrência pai',mtInformation,[mbOk],0);
    associa := True;
    Exit;
  end
  else
  begin
    popula_lista;
    for i := 0 to Pred(lista_ocorrencia.Count)do
      for k := 0 to Pred(bkm.count) do
      begin
         Aca debo poner mi codigo para borrar el registro que no estas marcado 
     end;
  end
end;