Error en consulta sql con parametro

[Lizette]

Hola compañeros, tengo la siguiente consulta sql:

Código Delphi [-]

  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;

with QueryRec do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select Hora, Evento');
 SQL.Add('From Recordatorios');
 SQL.Add('Where Hora < ho');
 SQL.Add('Order By Hora asc');
 Parameters.ParamByName('ho').Value:=hor;
 Open;
end; //with

Aquí el caso es que le mando como parametro hor que contiene la hora actual despreciando los segundos, y me marca error precisamente en ese parametro..

Saludos y espero me puedan ayudar a identificar el problema..