[aleksnine]

Вот как-то так :

Код:

uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  ExtCtrls, StdCtrls,jpeg;

Код:

 function katalog(link:string;image:timage):string;
var
idhttp:tidhttp;
i:integer;
s:string;
st:tstringlist;
stream:tmemorystream;
const
tag_k='<div id="footerBottom"></div>';
site='http://ua.oriflame.com';
begin
result:='не нашли';
idhttp:=tidhttp.Create(form1);
st:=tstringlist.Create;
st.Text:= idhttp.Get(link);
for i := 0 to st.Count-1    do begin
if st.Strings[i]=tag_k then  begin
s:=st.Strings[i+12]   ;
s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s)-1);
result:=s;
s:=st.Strings[i+13]   ;
s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s)-1);
result:=result + '  ' + s;   //Инфа по каталогу получена .
if st.Strings[i]=tag_k then  begin
s:=st.Strings[i+9]   ;
s:=copy(s,ansipos('"',s)+1,length(s));
s:=copy(s,0,ansipos('"',s)-1);
s:=site+s;
result:=result +'    ' +s;      //Получили ссылку на картинку каталога
 stream:=tmemorystream.Create;
idhttp.Get(s,stream);
with stream do  begin
position:=0;
savetofile('1.jpg');
end;
image.Picture.LoadFromFile('1.jpg');
end;
end;
end;
idhttp.Free;
st.Free;  stream.Free;
end;

Использование

Код:

showmessage(katalog('http://ua.oriflame.com/recruits/',image1));