var
 mas:array[1..N] of string;
 mas_pos:integer = 1;
.......................
procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.Caption := mas[mas_pos];
 inc(mas_pos);
 if mas_pos > N then mas_pos := 1; // типа по кругу будем всё выводить )
end;