Error en consulta sql con parametro

[Lizette]

Como con la consulta no pude, no me quedo más que buscar opciones jeje, a lo cual hice lo siguiente:

Código Delphi [-]

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

 ADOTable1.Open;
 while ADOTable1.Eof<>True do
 begin
  if(ADOTable1.FieldValues['Fecha']=ff)then
  begin
    hora:=StrToTime(ADOTable1.FieldValues['Hora']);
    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:=StrToTime(hrs+':'+min+' '+mer);

    if(hora< hor)then
    begin
    RichEdit1.Lines.Add(ADOTable1.FieldValues['Hora']);
    RichEdit1.Lines.Add(ADOTable1.FieldValues['Evento']);
    ADOTable1.Edit;
    ADOTable1.Delete;
    ADOTable1.Refresh;
    end
    else
     ADOTable1.Next;
   end
   else
    ADOTable1.Next;
  end;
  BitAceptar.SetFocus;

El cual me muestra los datos en un RichEdit , mmm aunque no en una tablita pero en fin.. jeje

Saludos