Delphi-PRAXiS - Delphi Konvertierung Variante vom Typ (OleStr) in Typ (Integer)

Hallo zusammen,

habe ein Problem beim Auslesen einer XML Datei und beim Zugriff auf die Daten bekomme ich die Fehlermeldung:

Zitat:

Überlauf bei der Konvertierung einer Variante vom Typ (OleStr) in Typ (Integer)

Quellcode:

Delphi-Quellcode:

			procedure Tfrm_main.btn_loadClick(Sender: TObject);

var

    daten: IXMLONIXmessageType;

    pro: IXMLONIXmessageType;

    title: IXMLTitleTypeList;

    header: IXMLHeaderType;

begin

  // Datei Laden in data

  daten := LoadONIXmessage('datentest.xml');

  // Datei Header laden in header

  header := daten.Header;

  // Header Daten auslesen und in ed_header

  [b][color=#ff0000]ed_absenderkennung.Text := IntToStr(header.M172);[/color][/b]

  title := daten.Product.Items[2].Title;

  showmessage(inttoStr(daten.Product.Count));

  showmessage(daten.Product.Items[2].A001);

  showmessage(title.Items[0].B203);

end;

Fettgedruckte Rote Zeile erzeugt die Fehlermeldung.

Typendeklaration der XML Header:

Delphi-Quellcode:

			{ TXMLHeaderType }

  TXMLHeaderType = class(TXMLNode, IXMLHeaderType)

  protected

    { IXMLHeaderType }

    function Get_M172: Integer;

    function Get_Senderidentifier: IXMLSenderidentifierType;

    function Get_M174: WideString;

    function Get_M175: WideString;

    function Get_M180: Integer;

    function Get_M182: Integer;

    procedure Set_M172(Value: Integer);

    procedure Set_M174(Value: WideString);

    procedure Set_M175(Value: WideString);

    procedure Set_M180(Value: Integer);

    procedure Set_M182(Value: Integer);

  public

    procedure AfterConstruction; override;

  end;

{ TXMLSenderidentifierType }

Weis zufällig jemand wie ich das umkonvertieren muss ?