Listenindex überschreitet das Maximum

[Lucky83]

Hallo

ich habe folgene Procedure mit der ich Buttons in einer Outlookbar dynamisch erzeuge:

procedure addJvOutlookButton(page:Integer;BtnIndex:Integer;C aption:Str15;ImgIndex:Integer;tag:Integer);
begin
jvoutlookbar1.Pages[page].Buttons.Insert(BtnIndex);
jvoutlookbar1.Pages[page].Buttons[BtnIndex].ImageIndex:=imgIndex;
jvoutlookbar1.Pages[page].Buttons[BtnIndex].Caption:=caption;
jvoutlookbar1.Pages[page].Buttons[BtnIndex].tag:=Tag;
end;

Während des Programms erstell ich dann folgenden Button:
addJvOutlookButton(0,0,'Test',42,102);

später möchte ich dann die Caption des Buttons ändern:
JvOutlookBar1.ActivePage.Buttons[102].Caption:='Test2';

dabei kommt immer die Fehlermeldung: Listenindex überschreitet das Maximum (102)

Kann mir da jemand weiterhelfen?