fs:= TFileStream.Create(FileName, fmCreate); // in procedure TForm1.ProjektOpen
Zitat:
fmCreate - Create a file with the given name. If a file with the given name exists, override the existing file and open it in write mode.
Du überschreibst beim Öffnen die Datei. Die ist leer. Prüfe mal fs.Size.
Die sollte ja größer null sein, wenn richtig eingelesen.
Probiere es doch mal mit fmOpenRead.