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

Type
  ...
  procedure WMTimer(Var Message: TWMTimer); message WM_TIMER;
  ...


...


procedure XY...
var IDTIMER,I: Integer;
begin
  for i:=0 To Count Do
  begin
    IDTIMER := 30000+I;
    SetTimer(hwnd, IDTIMER, 1000, nil);
  end;
end;
...					

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

    procedure WM_TIMER(var Message: TWMTimer); message WM_TIMER;
...
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
 for i := 1 to 2 do begin
  SetTimer(Handle, i, i * 1000, nil); // TimerID und Intervall setzen
 end;
end;

procedure TForm1.WM_TIMER(var Message: TWMTimer);
begin
 case Message.TimerID of
  // Beispiel
  1: Caption := IntToStr(StrToInt(Caption) + 1);
  2: Caption := IntToStr(StrToInt(Caption) - 3);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

uses {...},ExtCtrls;
//---
var Timer1: TTimer;

Procedure TForm1.TimerEvent(Sender: TObject);
begin
   Showmessage('moin!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1 := TTimer.Create(self);
   Timer1.Interval := 1000;
   Timer1.onTimer := TimerEvent;
   Timer1.Enabled := true;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var i: integer;
begin
   inc(i);
   if i mod 3 = 0 then
      TimerEvent1;
   if i mod 5 = 0 then
      TimerEvent2;
//etc
end;