TJPEGImage *jp = new TJPEGImage();
AnsiString data = IdHTTP1->Get("http://mail.oru.ru/registration.php");
int pos1 = data.Pos("image.php?n=");
int pos2 = data.Pos("\" border=\"1\" width=\"197\" height=\"40");
AnsiString picurl = data.SubString(pos1,pos2-pos1);
TStream *lol = new TMemoryStream();
IdHTTP1->Get("http://mail.oru.ru/"+picurl, lol);
lol->Seek(0,   soFromBeginning);
jp->LoadFromStream(lol);
Image1->Picture->Assign(jp);