TMainForm = class(TForm)
TitleImage: TImage;
...
private
procedure MenuLabelMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
public
MenuLabel: array[1..10] of TPanel;
...
end;
for I:= 1 to 10 do
begin
MenuLabel:= TPanel.Create(Self);
MenuLabel.Parent:= MainForm;
MenuLabel.Top:= FML_Top + (I - 1) * FML_Height;
MenuLabel.Left:= FML_Left;
MenuLabel.Font.Name := FontName;
MenuLabel.Font.Size := FontSize;
MenuLabel.Font.Color:= FontColor;
MenuLabel.Color := Color;
MenuLabel.Tag:= I;
MenuLabel.OnMouseDown:= MenuLabelMouseDown;
end;
