Показать сообщение отдельно
  #4  
Старый 01.03.2009, 19:36
prv_89 prv_89 вне форума
Прохожий
 
Регистрация: 01.03.2009
Сообщения: 4
Репутация: 10
По умолчанию

Timer1.Interval := 30000; // 30000 это 30 сек
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ваше действие;
end;
Ответить с цитированием