Цикл действий на(в) одно кнопке

[Sibedir]

Какой из моих вариантов FormCreate используете? Покажите, что именно в FormCreate вы вставили.

[Vadja-Son]

используется этот вариант:

var
  Labels: array of TLabel;
  LabelIndex: Integer;
  Col: TColor;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (Labels, 3);
  Labels [0] := Label1;
  Labels [1] := Label2;
  Labels [2] := Label3;
  LabelIndex := 0;

  Randomize;
  Col := clRed;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if LabelIndex > -1 then begin
    Labels [LabelIndex].Color := Col;
    if LabelIndex = Length(Labels)-1 then begin
      LabelIndex := 0;
      Col := TColor (Random ($7FFFFFFF));
    end
    else begin
      Inc (LabelIndex);
    end;
  end;
end;

[Sibedir]

Ну так в вашем случае, во-первых, должно быть

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (Labels, 12);
  Labels [0] := Label8;
  Labels [1] := Label9;
  Labels [2] := Label10;
  Labels [3] := Label11;
  Labels [4] := Label12;
  Labels [5] := Label13;
  Labels [6] := Label14;
  Labels [7] := Label15;
  Labels [8] := Label16;
  Labels [9] := Label17;
  Labels [10] := Label18;
  Labels [11] := Label19;
  LabelIndex := 0;

  Randomize;
  Col := clRed;
end;

Я же просил показать, что именно вы вставили, а не мой код мне же показать.

А во-вторых, у меня-то это работает. Точно в том виде, в котором я вам привел.

P.S.: Маленький косяк

Col := TColor (Random ($7FFFFFFF));

замени на

Col := TColor (Random ($FFFFFF));

[Vadja-Son]

Следующая проблема.
При запуске программы, выкидывает это:
error.jpg

Как быть???

[Sibedir]

У вас на форме есть Label8?

[Vadja-Son]

Естественно

[Sibedir]

Покажите ка код объявления формы

  TForm1 = class(TForm)
    // ВОТ С ЭТИМ
  private
    { Private declarations }
  public
    { Public declarations }
  end;

[Vadja-Son]

Пожалуйста:

TForm1 = class(TForm)
    Variant1: TButton;
    Variant3: TButton;
    Variant2: TButton;
    Variant4: TButton;
    EditQuestion: TDBEdit;
    Button1: TButton;
    QueryQuestion: TADOQuery;
    ADOConnection1: TADOConnection;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    MainMenu1: TMainMenu;
    Button3: TButton;
    File1: TMenuItem;
    Help1: TMenuItem;
    Izeja1: TMenuItem;
    Button4: TButton;
    Button5: TButton;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Uzstadijumi1: TMenuItem;
    Fons1: TMenuItem;
    AtraIzeja1: TMenuItem;
    ColorDialog1: TColorDialog;
    Edit1: TEdit;
    Button6: TButton;
    Label20: TLabel;
    Label21: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure VariantCheckClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Izeja1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure AtraIzeja1Click(Sender: TObject);
    procedure Fons1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    M : array[1..CountAnswer] of string;
    Indx : array[1..CountAnswer] of integer;
   { Public declarations }
  end;

[Sibedir]

Не пойму, что за хрень.
Вот, делаю так и все работает

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  Labels: array of TLabel;
  LabelIndex: Integer;
  Col: TColor;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (Labels, 12);
  Labels [0] := Label8;
  Labels [1] := Label9;
  Labels [2] := Label10;
  Labels [3] := Label11;
  Labels [4] := Label12;
  Labels [5] := Label13;
  Labels [6] := Label14;
  Labels [7] := Label15;
  Labels [8] := Label16;
  Labels [9] := Label17;
  Labels [10] := Label18;
  Labels [11] := Label19;
  LabelIndex := 0;

  Randomize;
  Col := clRed;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if LabelIndex > -1 then begin
    Labels [LabelIndex].Color := Col;
    if LabelIndex = Length(Labels)-1 then begin
      LabelIndex := 0;
      Col := TColor (Random ($FFFFFF));
    end
    else begin
      Inc (LabelIndex);
    end;
  end;
end;

end.

[Vadja-Son]

Вы не могли бы посмотреть на это в живую, может что на ум придёт, я так ковырялся ковырялся, ничего.... Даже обхитрить неудаётся никак!!!

Вот программа: prog.rar

Заранние спасибо, извените что так навязался