#pas
procedure doLoad(const fn:string);
begin
   if FileSize(fn) > MAX_PATH*100 then  LB_INITSTORAGE;
  inherited doLoad(fn);
end;

procedure THIWinList.SetStrings;
var
   List:PStrList;
   i:integer;
   aName: array [0..255] of Char;
begin
  Control.Perform(WM_SETREDRAW, 0, 0);
  List := NewStrList;
  List.SetText(Value, false);
  Control.Clear;
  if List.Count > 0 then
  begin
    GetClassName(Control.Handle, aName, 256);
    if string(aName) = 'obj_LISTBOX' then
    begin
      Control.Perform(LB_INITSTORAGE, 0, Length(List.Text));
      for i := 0 to List.Count - 1 do
        Control.Perform(LB_ADDSTRING, 0, cardinal(PChar(List.Items[i])));
    end
    else if string(aName) = 'obj_COMBOBOX' then
    begin
      Control.Perform(CB_INITSTORAGE, 0, Length(List.Text));
      for i := 0 to List.Count - 1 do
        Control.Perform(CB_ADDSTRING, 0, cardinal(PChar(List.Items[i])));
    end
    else
      for i := 0 to List.Count-1 do
        Control.Add(List.Items[i]);
  end;
  List.free;
  Control.Perform(WM_SETREDRAW, 1, 0);
end;

     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;