но вот doLoad, в том виде, в котором он есть сейчас не получится никак, по причине того, что LB_INITSTORAGE работает только для класса ListBox

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