begin
        hFile := CreateFile(PChar(fn), GENERIC_READ OR GENERIC_WRITE,
                            FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
                            OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
        fsz := GetFileSize(hFile, nil);
        CloseHandle(hFile);
        
        if fsz <> 0 then
        begin
          SetStringsBefore(fsz);    
          AssignFile(F, fn);
          Reset(F);
          SetTextBuf(F, BufIn);    
          while not eof(F) do
           begin
             Readln(F, s);
             Add(s);
           end;
          CloseFile(F);
          SetStringsAfter;
        end;
        _hi_CreateEvent(_Data,@_event_onChange);
    end;