[DELPHI] problemi compareTime non funziona???

[funnylux]

Ciao ragazzi, ho un problema

praticamente ad una determinata ora dovrei fare un'operazione, per questo ho usato un timer ecc...
per verificare l'ora utilizzo compareTime

  if(Radiobutton1.Checked = true) then
  begin
    timer1.Enabled := false;
    if(comparetime(time,dataSched.Time)=0) then
        begin
        vai.Caption := 'ok' ;
        end;
  end; 

però non funziona se l'ora è uguale..
funziona solo se voglio verificare se è minore o maggiore con 1 e -1

come posso fare??? VVoVe: