Компонент CategoryButtons1

[Drax]

Еще одна проблема, для динамически созданных items создаю процедуру onclick , компилится но ничего не происходит на эту процедуру, чтото не так? подскажите пожалста

procedure TForm2.CategoryButtons1Categories0I temsClick(Sender: TObject);
var
i:integer;
begin
CategoryButtons1.Categories[0].Items.Add();
for i:=0 to CategoryButtons1.Categories[0].Items.Count-1 do
begin
if CategoryButtons1.Categories[0].Items[i].Hint <>'none' then begin
tmpStr := StrNew( PAnsiChar(CategoryButtons1.Categori es[0].Items[i].Hint));
ShellExecute(Handle, 'open',
tmpStr, nil, nil, SW_SHOWNORMAL);
end;
if CategoryButtons1.Categories[0].Items[i].Hint = 'none' then

if OpenDialog1.Execute then begin

CategoryButtons1.Categories[0].Items[i].Hint := OpenDialog1.FileName;

end;