[Страдалецъ]

Вы в этом уверены?

Код:

while Pos('img src=',st)>0 do begin
(Copy(st,Pos('img src=',st)+12,7));
IdHTTP1.Get('http://wmmaks.ru/'+st);

Я в этом коде вижу пустой вызов

Код:

(Copy(st,Pos('img src=',st)+12,7));

который ничего по сути не делает. Может вы хотели так:

Код:

st := Copy(st,Pos('img src=',st)+12,7);