[roland196]

Сообщение от Alegun

Сократите код немного, уберите лишние обработчики кнопок со 2й по 30ю, оставив один

Код:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 g :=1 + AA[(Sender as TSpeedButton).Tag)];
 Form3.rr:= IntToStr(g);
end;

задайте кнопкам свойство tag нужным индексом и результирующую переменную переместите туда, где она будет использоваться т.е. в Form3. Всем баттонам только не забудьте жим SpeedButton2Click задать

вставил со второго по 30 ваш код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
g := 1 + AA[0];
rr:=IntToStr(g);
Form1.Hide;
Form3.Show;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
g :=1 + AA[(Sender as TSpeedButton).Tag)];
Form3.rr:= IntToStr(g);
end;

выдало три ошибки:

Expected ] but received ) at line 370
Expected . but received ; at line 372
Expected the end of file but received an identifier 'Button2Click' at line 377