Реших да опитам с TFileStream. Забелязах обаче че четенето става доста бавно, тъй като чета символ по символ:

procedure TForm1.Button2Click(Sender: TObject);
var
s:Char;
ii:integer;
begin
Stream:=TFileStream.Create(FileName.Text,fmOpenRead);
for ii:=1 to Round(Stream.Size) do
begin
Stream.Read(s,SizeOf(s));
showmessage(s);
end;
end;

Така лесно се намира CR/LF, но

Съдържаниет е скрито
Влезте за да го видите