ayuda con una comparacion if

[[Caral]]

Hola
1-La comparación se saca de un dato Texto (combobox).
2-La comparación es de un solo dato, osea, no de varios ITEMS del combobox.
3-La hora si es Time no se podrá comparar con un string (tal como lo pretendes hacer).

Código Delphi [-]
var
 i: integer;
 Fecha, Hora : String;
begin
  Fecha:= FormatdateTime('mm/dd/yyyy',(now));
  Hora:= FormatdateTime('hh:nn:ss',(now));
  for i:= 0 to cmbfecha.Items.Count do
begin
  if (cmbFecha.Text = Fecha)
  and  (Hora < '10:18:00') then
  label2.caption:= IntToStr(i);
end;
end;

Saludos