Цикл. Создание обьекта и добовление в Tlist => Утечка памяти

[Человек_Борща]

Доброго времени суток!

Наклацал свой класс на основе Tlist.
в цикле создаю обьекты TObject и в толк не могу взять, почему утекает память оО:

  for i := 0 to fTS.Count - 1 do
  begin
    Email := TEmail.Create(fTS.Strings[i]); //< - Эврика сюда показывает...
    if (Email.EHost = cMail_IDs[0]) then 
      Inc(iM)
    else if (Email.EHost = cMail_IDs[1]) then
      Inc(iB)
    else if (Email.EHost = cMail_IDs[2]) then
      Inc(iL)
    else if (Email.EHost = cMail_IDs[3]) then
      Inc(iIN)
    else
    begin
      Email.Free;
      Continue;
    end;

    Add(Email);
  end;

в конструкторе вот что:

constructor TEmail.Create(aMail:String);
const
  DoPrefix = '@';
  AfterHost = '.ru';
var
  s, sPrefix, sPostFix: string;
begin
  inherited Create;
  fData := TEmailData.Create;
  s := LowerCase(aMail);
  sPrefix := Copy(s, 1, Pos(DoPrefix, s) - 1);
  Delete(s, 1, Pos(DoPrefix, s));
  sPostFix := Copy(s, 1, Pos(AfterHost, s) - 1);
  fPrefix := sPrefix;
  fBoxHost := sPostFix;
  fEmail := aMail;
  fInfoURL := Format(cMail_UWInfoURL, [fBoxHost, fPrefix]);
end;

[Пепел Феникса]

TList не уничтожает данные за собой.

[Человек_Борща]

TList не уничтожает данные за собой.

Факт. Вечно забываю об этом....