1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

const
   IDC_TIMER = 1;

SetTimer(hWnd, IDC_TIMER, 1000, nil); //Timer mit ID IDC_TIMER mit einem Interval von 1 Sek. setzen

//Windows-Nachricht
WM_TIMER

//ein Beispiel, wenn es mehre Timer gibt
WM_TIMER:
  case wParam of
    IDC_TIMER1:
      // Timer 1 ist aktiv geworden
    IDC_TIMER2:
      // Timer 2 ist aktiv geworden

    // usw.
  end;

//schließlich den Timer wieder anhalten bzw. freigeben
KillTimer(hWnd, IDC_TIMER);