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

procedure Form1.Timer1Timer(Sender: TObject);
begin
  ShowMessage('1');
  Timer1.OnTimer := Timer1Timer2;
end;

procedure Form1.Timer1Timer2(Sender: TObject);
begin
  ShowMessage('2');
  Timer1.OnTimer := Timer1Timer3;
end;

//usw... beliebig viele und auch durcheinander immer neu zugewiesen                    

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

procedure TForm1.OnTimer1(Sender: TObject);
begin
  {...}
  Timer.OnTimer := OnTimer2;
end;

procedure TForm1.OnTimer2(Sender: TObject);
begin
  {...}
  Timer.OnTimer := OnTimer1;
end;                    

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

procedure TForm1.OnTimer1(Sender: TObject);
begin
  {...}
  Timer.OnTimer := OnTimer2;
end;

procedure TForm1.OnTimer2(Sender: TObject);
begin
  {...}
  Timer.OnTimer := OnTimer1;
end;                    

1:

label1.caption:='1';                    

1:

label1.caption:= '4';                    

1:

label1.caption:='20';                    

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

procedure Form1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
If i = 1 then showmessage ('1');
If i = 2 then showmessage ('2');
If i = 3 then showmessage ('3');
If i = 4 then showmessage ('4');
If i = 5 then showmessage ('5');

i := i+1;                    

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

procedure Form1.Timer1Timer(Sender: TObject);
var
 i:integer;
begin
case i of
 begin
  1: showmessage('1');
  ...
 end;
inc(i);
end;                    

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

var
  Form1: TForm1;
  Nachricht :  String;
  Wert      :  Integer;
  NeuerWert :  Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:= True;
 NeuerWert := Random(10000) + 1
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Wert := NeuerWert;
 Nachricht := 'Was auch immer ' + inttostr(Wert);
 Timer1.Enabled:=False;
end;                    

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

var
  TimerIndex: Integer;

const
  TimerValueCount = 6;
  TimerValues: array[0..TimerValueCount-1] of Integer = (1, 3, 40, 120, 412, 1021);

procedure TForm1.FormCreate(Sender: TObject);
begin
  TimerIndex := 0;
end;

procedure TForm1.TimerTimer(Sender: TObject);
var S: String;
begin
  S := 'Wert: '+TimerValues[TimerIndex];
  inc(TimerIndex);

  { Mach irgenwdas mit S }
end;                    

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

var
 Step  : Integer;
 Werte : Array[1..3] of Integer;
 Str   : String;
...
 Step     := 0;
 Werte[1] := 1;
 Werte[2] := 3;
 Werte[3] := 40;
...
procedure TForm.Timer1Timer(Sender: TObject);
begin
 inc(Step,1);
 Str := 'WAS AUCH IMMER' + inttostr(Werte[Step]);
 if Step = 3 then
 begin
  Button1.Enabled :=false;
  Timer1.Enabled  :=false;
 end;
end;                    

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

procedure DoSomething(aParameter: Integer);
begin

end;

procedure DoSomething2(aParameter: Integer);
begin

end;

const
  Prozeduren: Array[0..1] of procedure(aParameter: Integer) of Object = (DoSomething, DoSomething2);
  Parameter: Array[0..1] of Integer = (5, 723);
  Zeiten: Array[0..1] of Integer = (1000, 23000);  //1 Sekunde; 23 Sekunden

procedure Timer1Timer(Sender: TObject);
begin
  Prozeduren[TimerNr](Parameter[TimerNr]);
  Inc(TimerNr);  //TimerNr ist wie oben schon oft zu lesen als Freldvariable der Form deklariert
  Timer1.Interval := Zeiten[TimerNr];  //hab mal das (Sender as TTimer) weggelassen um nich zu verwirren ;) 
end;                    

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

var
 Step  : Integer;
 Werte : Array[1..3] of Integer;
 Str   : String;
...
 Step     := 0;
 Werte[1] := 1;
 Werte[2] := 3;
 Werte[3] := 40;
...
procedure TForm.Timer1Timer(Sender: TObject);
begin
 inc(Step,1);
 Str := 'WAS AUCH IMMER' + inttostr(Werte[Step]);
 if Step = 3 then
 begin
  Button1.Enabled :=false;
  Timer1.Enabled  :=false;
 end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Step  : Integer;
  Werte : Array[1..3] of Integer;
  Str   : String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Step     := 0;
 Werte[1] := 1;
 Werte[2] := 3;
 Werte[3] := 40;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(Step,1);
 Str := 'WAS AUCH IMMER' + inttostr(Werte[Step]);
 button1.caption := str;
 if Step = 3 then
 begin
  Button1.Enabled :=false;
  Timer1.Enabled  :=false;
 end;
end;
end.                    

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Step  : Integer;
 Werte : Array[1..3] of Integer;
 Str   : String;
begin
 Step     := 0;
 Werte[1] := 1;
 Werte[2] := 3;
 Werte[3] := 40;
 inc(Step,1);
 Str := '' + inttostr(Werte[Step]);
 cpu1.Caption:=Str;
//Anschließendes deaktivieren:
timer1.Enabled:=false;
//Und aktivieren des Buttons:
button2.Enabled:=true;
// Zum Schluß soll dann alles enden wenn fertig !
 if Step = 3 then
 begin
  Button1.Enabled :=false;
  Timer1.Enabled  :=false;
 end;
end;                    

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

var 
 Werte : Array[1..5,1..3] of Integer;
...
// Timer 1
 Werte[1,1]:=1;
 Werte[1,2]:=3;
 Werte[1,3]:=40;

// Timer 2
 Werte[2,1]:=2;
 Werte[2,2]:=6;
 Werte[2,3]:=80;
...                    

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

const
  TimerCount = 256;  //die Anzahl der Timer in deinem Programm, auch, wenn das langsam nach dem falschen Ansatz aussieht aber mehr willst du ja nichtt verraten *rolleyes*

type
  TForm1 = class(TForm)
    ...
  private
    {private - declarations}
    FWerte: Array[0..TimerCount - 1, 0..WerteProTimer - 1] of Integer;
    FSteps: Array[0..TimerCount - 1] of Integer;
  public
    {public - declarations}
    ...
  end;