[Lizette]

Hola chicos, ps implemente lo del timer cada segundo interval=1000 el k viene por defecto, pero el problema esk tengo que abrir la tabla y revisar si hay registros que coincidan con la fecha y hora actual, pero en donde implemento este timer es un formulario que tiene 4 check box, para k el usuario elija la opcion a la que kiere acceder, hago lo siguiente en el ontimer, pero no me permite acceder a ninguna opcion de los checkbox del formulario, no me keda mas k ponerle run-program reset.

Código Delphi [-]
var
fecha:string;
dia:string;
mes:string;
ano:string;
ff:string;
hr:string;
hor:string;
minu:integer;
min:string;
hrs:string;
mer:string;

begin
if(activar=1)then
begin
  hr:=TimeToStr(time());
  hrs:=copy(hr,1,2);
  min:=copy(hr,4,2);
  mer:=copy(hr,10,4);
  minu:=StrToInt(min);
  min:=IntToStr(minu);
  hor:=hrs+':'+min+' '+mer;

fecha:=DateToStr(date());
dia:=(copy(fecha,1,2));
mes:=(copy(fecha,4,2));
ano:=(copy(fecha,7,4));
ff:=ano+'-'+mes+'-'+dia;

ADOtblRec.Open; //Si esto lo pongo
while ADOtblRec.Eof<>True do
begin
//aqui no da problemas pero ps no revisa la tabla
if(ADOtblRec.Locate('Fecha',ff ,[loPartialKey,loCaseInsensitive]))and (ADOtblRec.Locate('Hora',hor ,[loPartialKey,loCaseInsensitive]))then
 begin

  if not(frmMostrarRec.Active=True)then
   frmMostrarRec.ShowModal;
  sndPlaySound('C:\WINDOWS\Media\chimes.wav',SND_NODEFAULT Or  SND_ASYNC);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Hora']);
  frmMostrarRec.RichRec.Lines.Add(ADOtblRec.FieldValues['Evento']);

  ADOtblRec.Edit;
  ADOtblRec.Delete;
  ADOtblRec.Refresh;

end;//locate
 end;//while
  ADOtblRec.Close;
end;//activar
end;//ppal

Espero k me puedan ayudar, ya le he intentado de varias maneras y nada..
Gracias