Попробовал так -
Код:
var
i:integer;
begin
for i:=0 to all_im do
if TImage(FindComponent('im'+inttostr(i))).Hint = im_now then
scrollbox1.ScrollInView(TImage(FindComponent('im'+inttostr(i))));
Компилится норм , в программе выскакивает ошибка на строке
Код:
if TImage(FindComponent('im'+inttostr(i))).Hint = im_now then