[lamasdf]

Hice algo de codigo y por ahora esta funcionando les paso lo que hice. Hasta ahora llegue a cargar el usuario, la clave y hacer click en el link de Login para ingresar.

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;

{ Rutina usada para identificar cuales son los numero de cada item de la pagina web
   CantItem:=ovElemento.Length;
   Label7.Caption:=InttoStr (CantItem);
   for i := 0 to (ovElemento.Length - 1) do
    Begin
       Memodatosweb.Lines.Add(ovElemento.item(i).tagName);
       Memodatosweb.Lines.Add(ovElemento.item(i).type);
       Memodatosweb.Lines.Add(ovElemento.item(i).Value);
    end;
  }
   ovElemento.item(2).value:='loly3'; // Carga Usuario
   ovElemento.item(3).value:='loly';  // Carga Clave

   loslink := WebBrowser1.OleObject.Document.links;

{ Rutina para saber todos los link de la pagina web, lo muestra en un ListBox
    Label8.Caption := inttostr(loslink.length);
    for j := 0 to loslink.length - 1 do
      Listbox1.Items.Add(loslink.item(j));
  }
    loslink.item(0).click;     // Hace click en Login para entrar con el usuario y clave

 end;