Komisch mir wäre als hätte ich das genau so schon probiert.
Aber es funktioniert.
der Vollständigkeit wegen:
Code:
procedure TForm1.Button5Click(Sender: TObject);
var buf: char;
begin
Reset(Input);
while not eof(Input) do
begin
read(Input, buf);
writeLn( '0x' + hexStr(Byte(buf),2) );
end;
end;