пробывал так, но не парсит
Код:
var
s:TStringStream;
data:TStringList;
st:String;
img: TMemoryStream;
otvet:String;
jpg: TJpegImage;
begin
s := TStringStream.Create;
IdHTTP1.Get('http://wmmaks.ru/',s);
while Pos('img src=',st)>0 do begin
(Copy(st,Pos('img src=',st)+12,7));
IdHTTP1.Get('http://wmmaks.ru/'+st);
Delete(st,1, Pos('img src=',st)+12);
jpg.LoadFromStream(img);
form10.image1.Picture.Assign(jpg);
jpg.Free;
img.Free;
end;
end;