[sheffdop]

всем привет! у меня есть код для выбора панели рандомно из нескольких, и его надо использовать при нажатии на многие кнопки, так вот опишите мне, пожалуйста, по шагам (т.е. че и куда писать), как все это дело оформить в процедуру или функцию) за ранее спасибо!

Код:

var
r,i: Integer;
ArPanel: array of TControl;
Vis: boolean;
begin
 for i := 0 to Form2.ControlCount -1 do
  if Form2.Controls[i] is TPanel then
    begin
      SetLength(ArPanel, High(ArPanel) + 2);  //Установка размера массива большего на 1
      ArPanel[High(ArPanel)] := Form2.Controls[i];
    end;

Randomize;

  //Фрагмент нужен для того, чтобы не показывать панел второй раз
  Repeat
    r := Random(High(ArPanel) - Low(ArPanel) +1);
    Vis := ArPanel[r].Visible;
    ArPanel[r].Show;
  Until not Vis ;
end;