[v1s2222]

Ну просто создавай глобальную переменную и увеличивай ее на 1.

Код:

var
  Form1: TForm1;
  N: Integer = 1;
...
button1Click:
 begin
    Case N of
      1: RadioButton...
...