Сократите код немного, уберите лишние обработчики кнопок со 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;