Как заполнить форму на Сайте http://??
 

Здравствуйте!
Как заполнить форму на сайте и после заполнения нажать Ok?
к примеру это http://l2.snc.ru/index.php?act=reg .
гдето видел что можно так:
var
ss:tstringlist;
s: String;
begin
ss:=Tstringlist.Create;
ss.Add('login = user');
ss.Add('pass_1 = pass');
ss.Add('pass_2 = pass');
ss.Add('mail = xy@mail.ru');
ss.Add('question = Yes');
ss.Add('answer = No');
try
s := IdHTTP1.Post('http://l2.snc.ru/index.php?act=reg',ss);
finally
ss.Free;
end;
Но я не вкурю как нажать кнопку "продолжить"(на сайте).

Ответ: Как заполнить форму на Сайте http://??
 

procedure TfMain.Logon(Login: string; Password: string);
var
input_text, textareas : OleVariant;
i : integer;
begin
try
if Password='' then exit;
input_text:=wb1.OleObject.document.all.tags('INPUT ');
textareas:= wb1.OleObject.document.all.tags('TEXTAREA');
//Ввод логина
for i:=0 to input_text.length-1 do
if input_text.item(i).type='text' then input_text.item(i).value:=Login;
//Ввод пароля
for i:=0 to input_text.length-1 do
if input_text.item(i).type='password' then input_text.item(i).value:=Password;
//Нажатие Ок
wb1.OleObject.Document.Forms.Item(0).Elements.Item (1).Click;
except begin
//Logon(Nick, edPass.Text);
end;
end;
end;


Этот пример с использованием TEmbeddedWB.