[BLAGA]

я тут пораскинул мыслями и догнал, что мне не годится метот который я сейчас делаю. Т.к. мне нужна визуализация т.е. нужно авторизироватся через компонент TWebBrowser. подскажите как ввести в через сей компонент данные.

Додумал я как реализовать, теперь нужна помощь как дописать правильно код.

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('www.ххххххх.ru/logaut.php');//логаутим

//отправляем данные

WebBrowser1.Navigate('http://www.ххххх.ru/login/?server_id=1&email_or_login=Мой_Логин&pass=Мой_Пас с');

//данные строки выше нужно перехватить в Мемо или напрямую вставить строку нижу

WebBrowser1.Navigate('http://www.хххххх.ru/game/?тут данные из МеМо ')
end;

end.

как правильно сделать перехват ответа и помещения его в мемо или строку и в дальнейшем ответить серверу.?
Так же между отправкой лог-пасс, и game/... вылетает окно в IE с предложением сохр анить страничку. Как это дело блокирнуть?
вот скрин того,

что нужно заблокировать, но вывести данные прешедшие в строку

WebBrowser1.Navigate('http://www.nemexia.ru/game/?данные ответа '

Нарыл тут кое что, но не пойму как применить в моем случае

procedure TForm1.Button1Click(Sender: TObject);
//procedure TForm1.SubmitPostForm;
var
strPostData: string;
Data: Pointer;
URL, Flags, TargetloginForm, PostData, Headers: OleVariant;
begin
{
<!-- submit this html form: -->
<form method="post" action="http://127.0.0.1/cgi-bin/register.pl">
<input type="text" name="FIRSTNAME" value="Hans">
<input type="text" name="LASTNAME" value="Gulo">
<input type="text" name="NOTE" value="thats it">
<input type="submit">
</form>
}
strPostData := 'server_id=1&email_or_login=мой логин&pass=мой пас';
PostData := VarArrayCreate([0, Length(strPostData) - 1], varByte);
Data := VarArrayLock(PostData);
try
Move(strPostData[1], Data^, Length(strPostData));
finally
VarArrayUnlock(PostData);
end;
URL := 'http://www.ххххх.ru';
Flags := EmptyParam;
TargetloginForm := EmptyParam;
Headers := EmptyParam; // TWebBrowser автоматически заполнять
// эти заголовки соответствующими значениями
WebBrowser1.Navigate2('http://www.хххх.ru//login', Flags, TargetloginForm, PostData, Headers);
//WebBrowser1.Refresh
end;

если сделать так то получаю в оконцове то же что и в 1м коде.