Проблема с капчей [mini.webmoney.ru]

[webber9989]

  procedure TForm1.Button1Click(Sender: TObject);
  var
   page:string;
   p1,p2,p3:integer;
   LBD_VCT,VIEWSTATE:string;
   ms:tmemorystream;
   png:tpngimage;
   data:tstringlist;
  begin


   page:=idhttp1.Get('https://mini.webmoney.ru/login.aspx?ReturnUrl=%2fdashboard.aspx');

    Memo1.Text:=page;
    p1 := PosEx('__LBD_VCT',page);
    p1 := PosEx('value',page,p1);
    p1 := PosEx('"',page,p1)+1;
    LBD_VCT:= Copy(page,p1,PosEx('"',page,p1)-p1);
    p2 := PosEx('__VIEWSTATE',page);
    p2 := PosEx('value',page,p2);
    p2 := PosEx('"',page,p2)+1;
    VIEWSTATE:= Copy(page,p2,PosEx('"',page,p2)-p2);

  Memo2.Text:=LBD_VCT;
  Memo3.Text:=VIEWSTATE;

  idhttp1.Get('https://mini.webmoney.ru/LanapCaptcha.aspx?get=image&c=login_ctl00_cph_captcha_captcha&t='+LBD_VCT,ms);
  ms.Position:=0;
    png.LoadFromStream(ms);
     image1.Picture.Assign(png);

  end;

Не хочет грузиться капча. Второй день бьюсь... Вылетает ошибка:


Первый раз с этим сталкиваюсь, решение проблемы не знаю. Нагуглил только, что ошибка связана с памятью, то ли чего-то не хватает, то ли память не та...

[mss]

Объект png не существует.
Ты его не создал перед тем как обращаться к его методу LoadFromStream

[Fok]

 ms:=tmemorystream.create;
 png:=tpngimage.create;

[Пепел Феникса]

программу трассировали?(построчное выполнение)

[webber9989]

Да.
Всем спасибо.
Забыл создать объект, бывает, всё невнимательность.