Dim formNumber as Integer 'Form nummer die Ausgelesen wird
Dim document As MSHTML.IHTMLDocument2 'Document
Dim result As MSHTML.IHTMLFormElement 'rückgabewert der funktion später
Dim forms As MSHTML.IHTMLElementCollection 'die formen
 
...
 
result = forms.Item("", formNumber) '<-- Hier trit der Fehler "Type Mismatch auf"

function GetFormByNumber(document: IHTMLDocument2;
    formNumber: integer): IHTMLFormElement;
var
  forms: IHTMLElementCollection;
begin
  forms := document.Forms as IHTMLElementCollection;
  if formNumber < forms.Length then
    result := forms.Item(formNumber,'') as IHTMLFormElement
  else
    result := nil;
end;

___________________________________________________________________

[u]http://www.su.am