1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

FS := TFileStream.Create(importfile, fmOpenRead);
SetLength(Str, fs.size);
FS.Read(Str[1],fs.size);
FS.Free;

zeichen := str[1];  //Das erste Zeichen des Strings

zahl := ord(zeichen);

showmessage('Dezimale Zahl :' + inttostr(zahl) + #13#10 +
            'Hexadezimale Zahl :' +  inttohex(zahl,1));

//Danach dann Zeichen für Zeichen weiter verarbeiten					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  ..
  arrbyte : array of byte;
  ..
begin
FS := TFileStream.Create(importfile, fmOpenRead); 
SetLength(arrByte, fs.size); 
FS.Read(arrByte[0],fs.size); 
FS.Free;
i := 0;

//For i :0 low(arrbyte) to High(arrbyte) do
  showmessage('Dezimale Zahl :' + inttostr(arrbyte[i]) + #13#10 + 
            'Hexadezimale Zahl :' +  inttohex(arrbyte[i],1));