[Вопрос]Авто-вход в phpmyadmin

Вообщем надо сделать авто-вход в phpmyadmin,т.е не вводить логин и пароль каждый раз,а через программу логиниться
Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements:=WebBrowser1.OleObject.Document.Forms.Item(0).Elements;
for i:=0 to (ovElements.Length-1) do
begin
if (AnsiUpperCase(ovElements.Item(i).tagName)='INPUT') then
if (ovElements.item(i).id='input_username') then
ovElements.Item(i).Value:=(edit1.text);


if (AnsiUpperCase(ovElements.Item(i).tagName )='INPUT') then
if (ovElements.item(i).id='input_password') then
ovElements.Item(i).Value:=(edit2.text);

if (AnsiUpperCase(ovElements.Item(i).tagName)='INPUT') then
if (AnsiUpperCase(ovElements.Item(i).type )='SUBMIT') or
(AnsiUpperCase(ovElements.Item(i).type )='BUTTON') then
if (AnsiUpperCase(ovElements.item(i).Value)='OK')then
ovElements.Item(i).Click;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Navigate('http://localhost/phpmyadmin/');
end;

Помогите найти ошибку,почему когда я ввожу данные в edit1,edit2 и нажимаю на button1 эти данные не показываются в webbrowser1 и не нажимается автоматом кнопка?