Hallo und Willkommen in der
DP 
,
Du könntest die Datei im Ganzen in einer TStringlist einlesen, alle Zeilen ab X daraus löschen und anschließend die Stringliste wieder abspeichern oder Du nimmst die "alten" Routinen AssignFile, Reset, Rewrite, WriteLn, ReadLn und CloseFile, um zeilenweise zu lesen und zu schreiben.