[Aristarh Dark]

Вот он код моей мечты:

Код:

 //Legend
  SetLength(FObjectsInfo,Length(FObjectsInfo)+1);
  FObjectsInfo[High(FObjectsInfo)].Control:=TLabel.Create(FSMSOwner);
  with FObjectsInfo[High(FObjectsInfo)].Control as TLabel do
    begin
      Parent:=(FSMSOwner as TWinControl);
      Name:=Format('Legend%d',[FValueCount]);
      Caption:=Title;
      Alignment:=taLeftJustify;
      AutoSize:=False;
      Left:=Xb;
      Top:=FBlockStart.Y;
      Width:=allWidth div 2;
      Height:=Canvas.TextHeight(Title)+4;
      hLegend:=Height;
      FObjectsInfo[High(FObjectsInfo)].PLeft:=Left div ((FSMSOwner as TControl).ClientWidth div 100);
      FObjectsInfo[High(FObjectsInfo)].PWidth:=Width div ((FSMSOwner as TControl).ClientWidth div 100);
    end;