1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TFormMain.InitializeFrames(input:Array of TFrame);
var
  element: TFrame;
begin
  for element in input do
  begin
    element.Visible := false;
    element.SetBounds(Self.sFrameBar1.Left + Self.sFrameBar1.Width + 6,
                           Self.sFrameBar1.Top,
                           Self.sPanel3.left - Self.sFrameBar1.Width - Self.sFrameBar1.Left - 12,
                           Self.sPanel3.Height
                           );
    element.Parent := Self;
  end;
end;