Procedure aus zweiter Unit

[mkinzler]

Um es flexibler zu gestalten, würde ich folgende Änderung einführen:

Delphi-Quellcode:

Procedure MakeLabel( AOwner, AParent: TComponent);
begin
  LB:=TLabel.Create( AOwner);
  ...
  LB.Parent := AParent;
...