Системное время

[guffer]

Как сделать так,чтоб событие происходило в зависимости от системного времени.Например: Если время = 13:00 то Form1.color:=clBlack.

[psycho-coder]

Проверку на текущее время, например в таймере:

if TimeToStr(Now) = '13:00' then <что-то>;

[guffer]

Благодарствую.

[zotox]

Сообщение от psycho-coder

Проверку на текущее время, например в таймере:

if TimeToStr(Now) = '13:00' then <что-то>;

Или же так,

var
 t:TSystemTime;
begin
 GetLocalTime(t); //Возвр. в переменную текущее время/дату которое в 
                        //компьютере

 If t.wHour=13 then
 //Проверка текущего часа на компьютере с числом 13
  begin
   Showmessage('На компьютере 13 часов');
  end;
end;

[Altera]

А вообще по такому случаю мона и компонентик навоять...