[aleksnine]

Написал тебе заготовочку -)

Код:

Procedure FoundKey;
const
Sait_url='http://wmauction.com/';
var
Http:Tidhttp;
f:tstringlist;
s,STAG,key,rnd:string;
i,cif_max:integer;
Stream:Tmemorystream;
begin
try
key:=' ошибка ';
http := TIdHTTP.Create(nil);
STAG:='<td align='+''''+'right'+''''+'><img src='+''''+'im_code/image.php?rnd=';
cif_max:=length(STAG);
f:=tstringlist.Create;
f.Text:=http.Get(Sait_url);
for i:=0 to f.Count-1 do begin     //ищем STAG
s:=f.Strings[i];
s:=copy(s,0,cif_max);
if s=STAG then begin            //если строчка совпадает то вытаскиваем из нее цифорки
s:=f.Strings[i];
rnd:=copy(copy(s,51,56),0,6);    // какой то rnd
key:=copy(copy(s,62,60),0,6); // цифорки на картиночке
if key[6]=''''then
Delete(key,6,6);
break;     // прекращаем поиск
end;
end;
stream:=tmemorystream.Create;
try
http.Get('http://wmauction.com/im_code/image.php?rnd='+rnd+'&id='+key, stream);
stream.Position := 0;
stream.SaveToFile(Extractfilepath(paramstr(0))+key+'.jpg');
finally
stream.Free;Http.free;
showmessage('Успешно завершено'#13'Код - '+key+' '#13'Файл сохранен как  '+Extractfilepath(paramstr(0))+key+'.jpg' );
end;
except
showmessage('Произошла ошибочка');
end;
end;

Код простоват и туп , но задачу выполняет .
Получаем id и сохраняем картинку с сайта в папку с программой .