Как сделать все процессы на одном Timer

[Sanek777]

Мне нужно сделать вот допустим при событие таймера чтобы происходили такие действия:
таймер включается и в это время допустим происходит появление Button1. Потом когда его время заканчивается, мне нужно сделать чтобы он опять стал активным но уже появлялась Button2. Как мне это сделать?Пробовал:

Button1.Visible := True;
Timer1.Enabled := True;
Button2.Visible := True;
.............................

не получается все выполняется при первом выключение таймера. Что посоветуете?

[FaTaL]

Т.е. кнопки создаются не динамически, а просто у них Visible:=false?

[Terran]

Этот вариант может не очень хороший, но зато работает

Var
A,S,D: Integer;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
A:=0;
S:=0;
D:=0;
End;
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If D=1 Then
Begin
Button3.Visible:=True;
End;
If S=1 Then
Begin
Button2.Visible:=True;
D:=1;
End;
If A=1 Then
Begin
Button1.Visible:=True;
S:=1;
End;
A:=1;
End;

[SunKnight]

var
  Form1: TForm1;
  var a:word;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case a of
    1: button1.visible:=true;
    2: button2.Visible:=true;
    3: button3.Visible:=true;
  end;
  a:=a+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=1;
end;

[Sanek777]

У SunKnight самый нормальный и отлично работающий код в отличие от остальных. SunKnight, большое вам спасибо!!!

[Rik]

Тут дело не в коде, а в идее. Смысл идеи не изменился, реализация оптимизировалась...