TChart - 3 Variabeln

[Asura]

Gut, also habe mich nun weiter ran versucht:

Delphi-Quellcode:

  
while not Query.Eof do
    begin

      for I := 0 to Chart.SeriesCount -1 do
        begin

          if Chart.Series[ I ].Name = Query.FieldByName('usr_ID').AsString then
            begin

              with Chart.Series[I] do
                begin
                  AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);
                end;

            end
          else
            begin
              Bubble := TBubbleSeries.Create(Self);
              Bubble.ParentChart := Chart;
              Bubble.AddBubble(Query.FieldByName('usr_ID').AsFloat, Query.FieldByName('bev_ID').AsFloat, Query.FieldByName('Anzahl').AsFloat);;
            end;

        end;

      Query.Next;
    end;

Folgende Probleme, die ich nicht lösen kann:
AddBubble kann nicht ausgeführt werden, da nicht Chart.Series[I] weiß, dass es sich um ein Bubble Serie handelt.
Das zweite Problem ist natürlich, dass bei der If-Else-Abfrage jedes mal wenn der erste Werte nicht stimmt er ja eine neue Serie erstellen würde.
Wie könnte ich das umgehen?