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