Can you try this approach for now? 1.  uses ... uniStrUtils; 2. procedure SetTitle(AUniBarSeries: TUniBarSeries; ATitle: string); procedure TMainForm.SetTitle(AUniBarSeries: TUniBarSeries; ATitle: string); var I: Integer; Titles: string; begin if (ATitle<>'')and(AUniBarSeries.Title<>ATitle) then begin AUniBarSeries.Title := ATitle; for I := 0 to AUniBarSeries.Parent.SeriesList.Count-1 do Titles := Titles + '"' + (AUniBarSeries.Parent.SeriesList[I