[NumLock]

там же gif файл

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;
  filestream: TFileStream;
begin
  s:=IdHTTP1.Get('http://webmaster.yandex.ru/addurl.xml');
  Memo1.Text:=s;
  Memo1.Lines.SaveToFile('capcha.htm');
  i:=Pos('image?key=', s);
  if i>0 then
  begin
    s:=Copy(s, i-28, Length(s));
    i:=Pos('"', s);
    s:=Copy(s, 1, i-1);
    Caption:=s;
    filestream:=TFileStream.Create('capcha.gif', fmCreate);
    try
      IdHTTP1.Get(s, filestream);
    finally
      filestream.Free;
    end;
  end;
end;