[osminog]

Всем добрый день!
Есть код (приведенный ниже), требуется установить таймер, чтобы сообщения выводились ч/з 3 секунды!
... как реализовать, нет опыта работы с Timer
Кто знает, помогите, плиз!

Код:

procedure TForm1.Image3Click(Sender: TObject);
begin
  // проверка 1-й службы
  if ServiceGetStatus('','A1')=SERVICE_RUNNING then
  Label2.Caption:=(' запущена ')
  else Label6.Caption:=(' не запущена ');
  // проверка 2-й службы
  if ServiceGetStatus('','A2')=SERVICE_RUNNING then
  Label8.Caption:=(' запущена ')
  else Label10.Caption:=(' не запущена ');