[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 задать

З.Ы. Кстати, и в обработчике Button3Click можно подсократить слегка, если цикл задействовать

Код:

 for i := 1 to 30 do
  (FindComponent('Image' + IntToStr(i)) as TImage).Picture:= nil;

да, за

for i := 1 to 30 do
(FindComponent('Image' + IntToStr(i)) as TImage).Picture:= nil;

спасибо, но с первым:

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;

выдало уже только одну ошибку:

'TForm3' does not contain a member 'rr' at line 343