TRichEdit nur erste zeile? :/

[Luckie]

Das read kommt mir komisch vor. Wenn dann sollte es so gehen:

Delphi-Quellcode:

var
  F: TextFile;
  s: String;
begin
  AssignFile(F, Filename);
{$I-}
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      Readln(F, s);
      RichEdit1.Lines.Add(s);
    end;
    CloseFile(F);
  end
  else
    RaiseLastOSError();