Разные сообщения

[zanndr]

С дельфи знаком немного , поэтому вопрос многим покажется глупым но все же. Как сделать , что бы при нажатии на кнопку , вылезали разные сообщения? Если один раз написать ShowMessage('blablabla'); то всегда вылазит одно и тоже сообщение , а мне нужно , что бы они выводились по порядку , например 1 раз нажал на кнопку - сообщение1 , второй раз нажал на кнопку - сообщение2 и т.д.

Пытался сделать так

procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin Button1.Caption := 'сообщение1'; Button1.Tag := 1; end;
1 : begin Button1.Caption := 'сообщение2'; Button1.Tag := 2; end;
2 : begin Button1.Caption := 'сообщение3'; Button1.Tag := 3; end;
3 : begin Button1.Caption := 'сообщение4'; Button1.Tag := 0; end;
end;

Но оно меняет сообщение на кнопке , а не то , которое появляется по нажатию на нее.

Сделал так

procedure TForm1.Button1Click(Sender: TObject);
var
   post : integer;
begin
   post := random(4);

case post of
 0: ShowMessage('1');
 1: ShowMessage('2');
 2: ShowMessage('3');
 3: ShowMessage('4');
end;

Оно работает , но можно ли другими способами сделать тоже самое?

[Dinmaite]

procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin ShowMessage('1'); Button1.Tag := 1; end;
1 : begin ShowMessage('2'); Button1.Tag := 2; end;
2 : begin ShowMessage('3'); Button1.Tag := 3; end;
3 : begin ShowMessage('4');Button1.Tag := 0; end;
end;

Как бы.