Hex Wert aus Editfeld an eine integer Variable übergeben

[mmfembr]

Wenn ich nun den "Val(edit1.Text,ihexzaehler,code)" durch "ihexzaehler := StrtoInt(edit1.Text);" ersetze erscheint eine exception. (Im Anhang als *.doc)

Delphi-Quellcode:

procedure THauptformular.sbtnKonvertierenClick(Sender: TObject); 
var 
  hexarray            : array[0..7] of String; 
  ihexzaehler, code   : integer; 

begin 
//Schreiben der Arraydaten in ein Textfile 
  Assignfile(Tfile,'C:\Dokumente und Einstellungen\mmfembr\Desktop\test.txt'); 
  Rewrite(Tfile); 
  Val(edit1.Text,ihexzaehler,code); 
  For y := 0 to 7 do 
    begin 
      ihexzaehler := ihexzaehler + $1; 
      Writeln(Tfile, inttohex(ihexzaehler,4) + ':' + hexarray[y]); 
    end; 
  CloseFile(Tfile); 
end; 
end.