Im Konstruktor würde ich inherited zuerst aufrufen.
Die Set-Methode sollte ungefähr so aussehen:
Delphi-Quellcode:
procedure TMyLabel.setLines(newLines: TStrings);
begin
if Assigned(newLines) then
FLines.Assign(newLines)
else
FLines.Clear;
//... alles weitere
end;
Gruß, teebee