Problem mit FindComponent

[Blackpit]

Hallo,
kann mir jemand sagen, warum das nicht geht?

Delphi-Quellcode:

      While not mtdata.Eof do
       Begin
         with TVCheckListBox(FindComponent('lst_ausstattung' + IntToStr(CAT_ID -2))) do
           begin
            //  showmessage(mtData.FieldByName('Bezeichnung').asstring); // funktioniert
             Items.Add := mtData.FieldByName('Bezeichnung').AsString;  //  <= "Ungenügende Parameter" ??
           end;
         mtdata.Next;
        end;

Bin Ratlos?