Как создать Label и отопрозить на форме?

[juan666777]

Подскажите пожалуйста как создать массив элементов label массив должен быть динамический и по нажатию кнопки создавался элемент label и выводился на форму и что бы с ним можно было работать?

[Neeter]

В общем, весь код проекта:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ALabels: array of TLabel;   //Динамический массив label'ов

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetLength(ALabels, Length(ALabels) + 1);    //Увеличиваем длину на единицу
 ALabels[Length(ALabels) - 1] := TLabel.Create(Self);  //Создаем label
 With ALabels[Length(ALabels) - 1] do
 begin
  //Устанавливаем родителя, в данном случае форму
  Parent := Self;
  //Если родителем должна быть панель, то писать так - Parent := Panel1;
  //Заголовок label'а с его индексом
  Caption := Format('Label №%d', [Length(ALabels) - 1]);
  //В свойсве tag у label'а будет индекс в массиве
  Tag := Length(ALabels) - 1;
  //Рандомная позиция на форме
  Left := Random(Self.Width);
  Top := Random(Self.Height);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

end.

[juan666777]

Большое спасибо