Auf den ersten Blick sieht es für mich korrekt aus.
Hast du bereits den Debugger bemüht?
Teile den Schleifeninhalt gegebenenfalls auf:
Delphi-Quellcode:
For I := 0 to TimeList.Count-1 do
begin
MyString := TimeList.Strings[I]+'View';
MyComponent := SellProductForm.FindComponent(MyString);
TListView(MyComponent).Items.Clear;
end;
Dann ist es mit dem Debugger vermutlich einfacher zu erkennen, wo der Fehler ist.