¿Como completar datos en una pagina Web mediante codigo?

[lamasdf]

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');     //CARGA LA PAGINA WEB
   Label2.Caption:='Comienza Carga';
end;

procedure TForm1.ButtonSalirClick(Sender: TObject);                   // BOTON PARA SALIR DE LA APLICACION
begin
   Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);                       // BOTON PARA INICIAR LA CARGA DE DATOS
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'; // Carga Usuario es 2 porque lo identifique, se muestra en el mensaje anterior
   ovElemento.item(3).value:='loly';  // Carga Clave

   loslink := WebBrowser1.OleObject.Document.links;
   loslink.item(0).click;     // Hace click en Login para entrar con el usuario y clave ya cargados. Es 0 porque es
                                  //  el unico link en la pagina

 end;