Ha.
begin
time1 := time;
time2 := StrToTime('09:45:00');
Label1.Caption:= TimeToStr(time1);
Label2.Caption:= TimeToStr(time2);
If IntToStr(CompareTime(time1, time2)) = 0 Then ShowMessage('shoda')
end;
Ha.
begin
time1 := time;
time2 := StrToTime('09:45:00');
Label1.Caption:= TimeToStr(time1);
Label2.Caption:= TimeToStr(time2);
If IntToStr(CompareTime(time1, time2)) = 0 Then ShowMessage('shoda')
end;