function Add(const Text:string):integer; virtual;
//...
function THIWinList.Add(const Text: string):Integer;
begin
  Result := Control.Add(Text);
end;

// _work_doAdd
idx:integer;
// ...
   if _prop_AddType = 0 then begin
      idx := Add(s);
      if _prop_SelectAdd then Control.CurIndex := idx;
      dtInteger(di, idx);
   end
   else begin
      idx := Control.Insert(0,s); 
      if idx = -1 then Control.Text := s + #13#10 + Control.Text;
      if _prop_SelectAdd then Control.CurIndex := idx;
      dtInteger(di, idx);
   end;