Error al encontrar registro.

[alfredosg19]

Hola, tengo un problema a la hora de localizar un registro, he puesto el siguiente código:

			  
  If ADOTAgenda.Locate('Cita_T01','Trabajar',[locaseinsensitive]) and		   ADOTAgenda.Locate('Fecha_T01',FormatDateTime('dd"/"mm"/"yyyy',now+I),
  [locaseinsensitive]) and ADOTAgenda.Locate('Fin_T01',InttoStr(Acol+7)+':00:00',[locaseinsensitive] then
  				Begin
  				  Showmessage('Hola');
  				  ADOTAgenda.Edit;
 				  ADOTAgenda['Fin_T01']:=InttoStr(Acol+8)+':00:00';
 				  ADOTAgenda['Prioridad_T01']:=True;
  				  ADOTAgenda.Post;
  				End
  			  Else
  				Begin
  				  ADOTAgenda.Edit;
  				  DsAgenda.DataSet.Append;
 				  ADOTAgenda['Cita_T01']:='Trabajar';
 				  ADOTAgenda['Fecha_T01']:=FormatDatetime('dd"/"mm"/"yyyy',now+I);
 				  ADOTAgenda['Hora_T01']:=InttoStr(Acol+7)+':00:00';
 				  ADOTAgenda['Fin_T01']:=InttoStr(Acol+8+(horasdia(Acol)))+':00:00';
 				  ADOTAgenda['Prioridad_T01']:=True;
  				  ADOTAgenda.Post;
  				End;
  		  End;

y me da el siguiente error:

Project Agenda.Exe raised exception class OleException with message 'El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual'. Proccess Stopped. Use Step o Run to continue.

Deduzco que el problema es con la base de datos, pero no entiendo por qué, ¿alguien sabe a que puede deberse?. Muchas gracias.