[lmikle]

Ну и создавай их.
Пусть label1 уже есть.
тогда создание так:

Код:

var
  I : Integer;
  ANewLabel : TLabel;
begin
  For I := 1 To 10 Do // make 10 labels
  Begin
    ANewLabel := TLabel.Create(Self);
    ANewLabel.Parent := Self;
    ANewLabel.Top := Random(100);
    ANewLabel.Left := Tandom(300);
    ANewLabel.Caption := 'label #' + InttoStr(I);
    ANewLabel.OnClick := Label1.OnClick;
    ANewLabel.OnMouseMove := Label1.OnMouseMove;
  End;
end;