Im Prinzip richtig, aber gibt es einen Grund, warum du die letzten zwei Byte deiner Datei ignorierst?
Ansonsten gibt es halt ein paar Kleinigkeiten, nichts wildes.
So brauchst du die Datei eigentlich nicht extra zum Schreiben öffnen, solltest aber das Schreiben in die Datei verbieten
Fs := TFileStream.Create(FileName, fmOpenRead or fmDenyWrite);
Ja, dann sollte deine Textdatei nicht all zu groß sein, da du immer den ganzen Stream in den buffer kopierst, aber denke einfach mal, dass ist bei deiner Datei noch nicht entscheident.
Und ansonsten solltest du den Speicher, der für Buffer alloziert wurde ruhig wieder freigeben.
Delphi-Quellcode:
finalize(buffer);
buffer := nil;
Gruß Der Unwissende