Срабатывание Button по таймеру

[include]

Здравствуйте. Ситуация такая:
У меня на форме есть кнопка Button1 с прописанными на неё некоторыми действиями и Label1 в котором отображается системное время через Timer

procedure TForm1.Timer1Timer(Sender: TObject);
var DateTime : TDateTime;
begin
DateTime:=Time;
Label1.Caption:=TimeToStr(DateTime);
end;

И теперь мне нужно что бы когда в Label отобразится определённое время, срабатывала кнопка Button и выполнялись указанные на неё действия.
Можете подсказать как написать такое условие и возможно ли вообще?

[veniside]

if ('23:23' = Label1.Caption) then
  Button1.Click(Button1); // карета превращается в тыкву

[include]

veniside, спасибо большое!
только я подправил немного, а то неработало)

if Label1.Caption='21:16:10' then Button1.Click;

[Аватар]

А у таймера интервал тиканья какой? А то может и не попасть на время заданное с точностью до секунды

[VIK_aka_TOR]

если интервал меньше минуты... то все норм... а если больше одной секунды... то лучше сделать интервал... используя тип TDateTime ... тип времени...

[veniside]

Да и вобще сама идея сравнения времени со строкой не сильно удачная, мало ли какой у юзера будет формат для LongTimeFormat. Это я так, для краткости примера нарисовал, а лучше разложить время на составляющие и спокойно сравнивать, что надо.

[include]

Интервал 1 секунда(мне огромная точность не обязательна). Для моей цели всё работает как надо.

[Аватар]

Ваш способ сравнения времени и такой интервал может в определенных условиях и не сработать, таймер ведь не очень точная штука, при соответствующей загрузке процессора эта секунда может и длиней стать