Foros Club Delphi - Encontrar un registro determinado.

Hola a todos!!, estoy haciendo una agenda personal y en una parte donde quiero poner un cuadro que guarda los horarios, con la hora i el dia, que cuando el usuario clica me crea un registro con el título de trabajo y la hora y el dia correspondiente al cuadro que cliquea, el caso es que si ya existe un registro del (por ejemplo) Lunes a las 12, de 12 a 13 si añado el siguiente cuadro no quiero que se me cree un registro sino que me modifique el anterior. Por tanto y resumiendo ¿como puedo encontrar un registro con una serie de requisitos? (por ejemplo con una determinada fecha, hora y cita), y ¿cómo puedo hacer que si existe este registro me lo modifique y si no que me lo cree de nuevo?. Se me ha ocurrido algo así, (esta mal eso es seguro):

Código:

                   If (ADOTAgenda.FieldByName('Cita_T01').AsString<>'Trabajar') and

                     (ADOTAgenda.FieldByName('Fecha_T01').AsString<>FormatDateTime('dd"/"mm"/"yyyy',now+I))

                         and (ADOTAgenda.FieldByName('Fin_T01').AsString<>InttoStr(Acol+7)+':00:00') then

                           Begin

                           Showmessage('Hola');

                           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']:='';

                           ADOTAgenda['Fin_T01']:=InttoStr(Acol+7+(horasdia(Acol)))+':00:00';

                           ADOTAgenda['Prioridad_T01']:=True;

                           ADOTAgenda.Post;

                           End

                         Else

                           Begin

                                 ADOTAgenda.Edit;

                                 DsAgenda.DataSet.Insert;

                                 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)+':00:00';

                                 ADOTAgenda['Prioridad_T01']:=True;

                                 ADOTAgenda.Post;

                           End;

                         End;

Muchísimas gracias por vuestro tiempo, pues llevo tres días detrás de este problema que debe ser algo sencillo pero por más que busco en los foros no consigo acoplar la información a lo que necesito.