Delphi, кнопка "Далее"

k:integer; - глобальная переменная
 
procedure TForm2.Button2Click(Sender: TObject);
begin
k:=k+1;
if k=1 then begin
Label1.Hide; Label2.Show;
end;
if k=2 then begin
label2.Hide; label3.Show;
end;
if k=3 then begin
label3.Hide; label4.Show;
end;
if k=4 then begin
label4.Hide; label5.Show;
end;
if k=5 then begin
label5.Hide; label6.Show;
end;
end;

if (k=0) or (k=6) then k:=k+1;
(FindComponent('Label'+inttostr(k)) as TLabel).Hide;
(FindComponent('Label'+inttostr(k+1)) as TLabel).Show;
(FindComponent('Form'+inttostr(k)) as TForm).Show;
k:=k+1;

k:integer; - глобальная переменная
procedure TForm2.Button2Click(Sender: TObject);
begin
   k:=k+1;
   if k=1 then begin
      Label1.Hide; Label2.Show;
   end;
   if k=2 then begin
      label2.Hide; label3.Show; 
   end;
   if k=3 then begin
      label3.Hide; label4.Show;
   end;
   if k=4 then begin
      label4.Hide; label5.Show;
   end;
   if k=5 then begin
      label5.Hide; label6.Show;
   end;
 
   if k>6 then k := 6;   //или любые другие константы
end;

k:integer; - глобальная переменная
procedure TForm2.Button2Click(Sender: TObject);
begin
   if k<6 then
   begin
      k:=k+1;
      if k=1 then begin
         Label1.Hide; Label2.Show;
      end;
      if k=2 then begin
         label2.Hide; label3.Show; 
      end;
      if k=3 then begin
         label3.Hide; label4.Show;
      end;
      if k=4 then begin
         label4.Hide; label5.Show;
      end;
      if k=5 then begin
         label5.Hide; label6.Show;
      end;
   end;
end;

Implementation
{$R *.dfm}
const
 MAX_LAB = 5;     // индекс последнего эл-та
var
  arr_lst : tList;
  now_lab : integer; // индекс видимого элемента в списке arr_lst
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 arr_lst := tList.Create;
 arr_lst.Add(label1);  arr_lst.Add(label2);  arr_lst.Add(label3); 
 arr_lst.Add(label4);  arr_lst.Add(label5);  arr_lst.Add(label6);
// то же самое можно проделать ч/з Form.Controls перебирая элементы формы
 now_lab := 0;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
 if(now_lab < MAX_LAB) then
  begin
   tLabel(arr_lst[now_lab]).hide;
   inc(now_lab);
   tLabel(arr_lst[now_lab]).show;
  end
 else
  begin
   tLabel(arr_lst[MAX_LAB]).hide;
   now_lab := 0;
   tLabel(arr_lst[0]).show;
  end;
end;