Voy limpiar el codigo un poco para que se entienda
Código Delphi
[-]
procedure TForm1.BotonInicioClick(Sender: TObject);
begin
WebBrowser1.Navigate('190.210.55.97/wap/teleexpress/pos'); Label2.Caption:='Comienza Carga';
end;
procedure TForm1.ButtonSalirClick(Sender: TObject); begin
Form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject); Var
li: Word;
CantItem,i: Integer;
ovElemento: OleVariant;
loslink: OleVariant;
j: integer;
begin
ovElemento := WebBrowser1.OleObject.Document.forms.item(0).elements;
ovElemento.item(2).value:='loly3'; ovElemento.item(3).value:='loly';
loslink := WebBrowser1.OleObject.Document.links;
loslink.item(0).click;
end;