[hermes_32]

Hola Enan0,

te he quitado algunas cosas que veo que no son necesarias. Prueba con esto:

Código Delphi [-]
   Adataset := TAdodataset.create(Application);
   SelectTodo(ADataSet,TIPO);
   While not Adataset.Recordset.Eof  do BEGIN
     Application.ProcessMessages;
     aux.MsgID := ADataSet.Recordset.Fields.Item['MsgID'].value;
     ... 
     ADataSet.Recordset.MoveNext;
   end;
   try
     Adataset.Free;
   except
   end;
   EscribirAuditoria('Fin EliminarRecordGW RecAppoint');