procedure ReadLNFile(filename: string);
var
  f: THandle;
  count: Dword;
  buf: array[0..255] of char;
  s: string;
begin
  s := '';
  f:= FileOpen(filename, fmOpenRead or fmShareDenyNone);
    repeat
      fillchar(buf, sizeof(buf), 0);
      count := FileRead(f, buf, 256);
      s := s + StrPas(buf);
        while pos(#13#10, s) > 0 do
          begin
            messagebox(0,pchar(copy(s,1,pos(#13#10, s))),nil,0);
            delete(s,1,pos(#13#10, s));
          end;
    until
      count = 0;
  FileClose(f);
  messagebox(0,pchar(s),nil,0);
end;