TFileStream: Binäre datei lesen und hex als string anzeigen

[Pseudemys Nelsoni]

hi,

kann mir einer sagen was an folgendem falsch ist? (ja ich weiss das es schwachsinnig aussieht *g*...):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  e, b: char;
begin
  fs := TFileStream.Create('C:\datei', fmOpenRead);
  try
    while fs.Position <= fs.Size-1 do
    begin
      fs.Read(b, 1);
      BinToHex(pchar(b), pchar(e), sizeof(b));
      memo1.Text := memo1.Text + e;
    end;
  finally
    fs.Free;
  end;
end;

ich bekomme immer eine access violation.

ich möchte die datei in einem memo anzeigen (bzw die hexwerte)... also sowas wie FF...usw