Binäre Datei erstellen

[snake41300]

Ich habe bis jetzt Folgendes versucht:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var fs: TFileStream;
    b: Byte;
begin

fs := TFileStream.Create('test.txt', fmOpenRead);
fs.Read(b,1);
showmessage(chr(b));
fs.Free;

end;

leider gibt aber die Message nichts aus, obwohl es sich um eine Textdatei handelt.