OnMouseDown Methode hinzufügen->Label wird per Code erstellt

[DeddyH]

Delphi-Quellcode:

type 
  TForm1= class(TForm)
  private
    procedure aktivieren(Sender: TObject);
    ...

implementation

procedure TForm1.aktivieren(Sender: TObject);
begin
  //Code
end;