[mazinger]

Yo lo haría así:

 
If (StrToTime(Edit1.Text) >= HoraInicio) AND (StrToTime(Edit1.Text) <= HoraFinal) Then Begin
 
...
...
 
 
End;