txt datei leer?

[cRayZo]

wie kann ich am schnellsten prüfen, ob eine .txt Datei leer ist, also keine Buchstaben/zahlen/Sonderzeichen drin sind?

ich hätte es jetzt so ähnlich gemacht

Delphi-Quellcode:

var F:File; sl:stringlist; begin 
assingfile(F,Pfad)
sl.crate;
sl.loadfromfile(Pfad);

aber wie kann ich am leichtesten Prüfen ob etwas drin ist?
ich habe mir überlegt, dass es doch eigentlich um einiges leichter sein würde, wenn ich prüfe, ob die txt datei 0byte groß ist, aber wie kann ich das prüfen?

Delphi-Quellcode:

//so bisher txt dateien erstellt:
if not FileExists('pfad\x.txr')
         then CreateTextFile2('pfad\x.txt');

aber selbst wenn ich es so mache, wenn ich eine txt erstelle ist sie immer 2byte groß, weil sieimmer einen Zeilenumbruch drin hat.
Wie bekomme ich den schon während des erstellens raus?