Hier mal ein grober Anfang der Klasse.
Delphi-Quellcode:
TLabelPanel = class(TCustomPanel)
private
FLabels: TObjectList;
FItems: TStrings;
procedure SetItems(Value: TStrings);
public
constructor Create(aOwner : TComponent); override;
destructor Destroy; override;
property Items: TStrings read FItems write SetItems;
end;