Floating Point division by zero

[Bjoerk]

Wie isses denn so?

Delphi-Quellcode:

procedure TForm1.FillForm(const FieldName, Value: string);
var
  I, J: Integer;
  Item, SubItem : Variant;
begin
  try
    for I := 0 to WebBrowser1.OleObject.Document.Forms.Length - 1 do
    begin
      Item := WebBrowser1.OleObject.Document.Forms.Item(I);
      for J := 0 to Item.Length - 1 do
      begin
        SubItem := Item.Item(J);
        if SubItem.Name = FieldName then
          SubItem.Value := Value;
      end;
    end;
  except
    on E: Exception do
      ShowMessage('Fehler vom Typ: ' + E.ClassName + ', Meldung: ' + E.Message);
  end;
end;