[akapel]

как всегда я сам разобрался,воспользовался этим кодом

Код:

procedure TForm1.Button3Click(Sender: TObject);
var ovElements: OleVariant;
    i,len: Integer;
    name,tp:string;
    idLogin,idPass,idButton:integer;
begin
 ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
 len := ovElements.Length;
 for i:=0 to (len-1) do
  begin
   name := ovElements.item(i).Name;
   tp := ovElements.item(i).type;
   if ( name = 'title') and ( tp = 'text') then idLogin := i;
   if ( name = 'message') {and ( tp = 'messageBody')} then idPass:=i;
   if ( name = 'submit') and ( tp = 'submit') then idButton := i;
  end;
 ovElements.item(idLogin).value := 'Привет';
 ovElements.item(idPass).value := '502311';
 ovElements.item(idButton).Click;
end;

Admin: Пользуемся тегами!