[Praimmax]

беру это

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://oauth.vkontakte.ru/authorize?client_id=2750730&scope=audio,offline&display=page&response_type=token');
end;

потом это

Код:

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  sURL: String;
  sToken, sUID: String;
  iUID: Cardinal;
begin
  sURL := URL;
  delete(sURL, 1, pos('#',sURL));
  sToken := sURL;
  while LowerCase(copy(sToken,1,13)) <> 'access_token=' do delete(sToken,1,pos('&',sToken));
  if pos('&',sToken)<>0 then sToken := copy(sToken,1,pos('&',sToken));
  delete(sToken,1,13);
  sUID := sURL;
  while LowerCase(copy(sUID,1,8)) <> 'user_id=' do delete(sUID,1,pos('&',sUID));
  if pos('&',sUID)<>0 then sUID := copy(sUID,1,pos('&',sUID));
  delete(sUID,1,8);
  iUID := StrToInt(sUID);
  Self.fUID:=iUID;
  Self.fToken:=sToken;
  Form1.Close;
  WebBrowser1.Hide;
  Application.ProcessMessages;
end;

жалуется на

Код:

Self.fUID:=iUID;
  Self.fToken:=sToken;

я удаляю


и ничего не происходит форму браузера добавил. я не понимаю может что добавить еще нужно