To byle moje chyba při vkladaní tady 
begin
time1 := time;
time2 := StrToTime('10:16:00');
Label1.Caption:= TimeToStr(time1);
Label2.Caption:= TimeToStr(time2);
If time1 = time2 Then ShowMessage('shoda');
end;
Delphi - time