Unbekannter Sender wird durchgeschliffen

[Martin W]

Problem gelöst... es hätte

Delphi-Quellcode:

procedure CreateLabel(Sender: TObject;
      var LabelObject: TLabel; Top, Left, Height, Width: integer; SendToFront,
      Transparent, AutoSize: boolean; LabelCaption: string; Alignment: TAlignment;
      Layout: TTextLayout; FontSize: integer; FontName: string; ShowLabel: boolean;
      Anchors: TAnchors; Cursor: TCursor);

heißen müssen und nicht

Delphi-Quellcode:

procedure CreateLabel(Sender: TObject;
      LabelObject: TLabel; Top, Left, Height, Width: integer; SendToFront,
      Transparent, AutoSize: boolean; LabelCaption: string; Alignment: TAlignment;
      Layout: TTextLayout; FontSize: integer; FontName: string; ShowLabel: boolean;
      Anchors: TAnchors; Cursor: TCursor);