Letztes Zeichen einer Datei immer #16?

[PASST]

Hi NG.

Delphi 4 (update 3)

Ich habe mir als Test eine kurzes Programm geschrieben. Es wird eine Datei geöffnet, die im HEX-Editor nur 3 Zeichen 'abc' enthält. Mit Button1Click lasse ich mir schrittweise ein Zeichen anzeigen. Seltsamerweise zeigt es mir beim vierten Button1Click das Zeichen #16 an.

Warum?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  SetLength(s, 1);
  fs.Read(s[1], 1);
  label1.Caption := s + ' ' + inttostr(ord(s[1]));
  label2.caption := Inttostr(fs.Position);
  label3.caption := inttostr(fs.size);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  fs := tFileStream.Create('d:\temp\zEnde.txt', fmOpenRead);
  label2.caption := Inttostr(fs.Position);
  label3.caption := inttostr(fs.size);
end;