procedure THIWinList._work_doLoad;
var
   fn:string;
   Lst:PStrList;
begin
   fn := ReadString(_Data,_data_FileName,_prop_FileName);
   if FileExists(fn) then
    begin
     Control.Clear;
     Lst := NewStrList;
     Lst.LoadFromFile(fn);
     if Lst.Count > 0 then
       SetStrings(Lst.text);
     Lst.Free;
     _hi_CreateEvent(_Data,@_event_onChange);
    end;
end;

procedure THIWinList.SetStrings;
var
   List:PStrList;
   i:integer;
begin
  List := NewStrList;
  List.Text := Value;
  Control.Clear;
  for i := 0 to List.Count-1 do
    Control.Add(List.Items[i]);
  List.free;
end;

procedure THIWinList._work_doLoad;
var
   fn:string;
   Lst:PStrList;
   i:integer;
begin
   fn := ReadString(_Data,_data_FileName,_prop_FileName);
   if FileExists(fn) then
    begin
     Control.Clear;
     Lst := NewStrList;
     Lst.LoadFromFile(fn);
     if Lst.Count > 0 then
       for i := 0 to Lst.Count-1 do
         Control.Add(Lst.Items[i]);
     Lst.Free;
     _hi_CreateEvent(_Data,@_event_onChange);
    end;
end;