[Страдалецъ]

Примерно так:

Код:

procedure TfrmJournal.AutoLogin(WB: TWebBrowser);
Var
  WebDoc: IHTMLDocument2;
  WebItem: IHTMLElement;
  i: Integer;
begin
 SendingQuery := False;
 WebDoc := WB.Document as IHTMLDocument2;
 for i := 0 to WebDoc.All.Length - 1
 do begin
    WebItem := WebDoc.All.Item(i, '') as IHTMLElement;
    if WebItem.id = 'userNameText' then WebItem.innerText := frmSettings.edUserName.Text;
    if WebItem.id = 'passwdText' then WebItem.innerText := frmSettings.edUserPassword.Text;
    if WebItem.Title = 'Log In'
    then begin
         WebItem.Click;
         Break;
         end;
    end;
end;