Думаю, можно по аналогии с данным кодом:
Код:
for i := 0 to form2.ComponentCount-1 do
if (form2.Components[i] is TButton) then
(form2.Components[i] as TButton).Visible:= true;
А все остальное:
1. Использовать CASE
2. Использовать переменную для имени файла, а саму процедуру загрузки вызывать единожды
3. Повторяющиеся операции выделить в отдельную процедуру\функцию