while List.Count > 0 do
begin
TObject(List[List.Count-1]).Free();
List.Delete(List.Count-1);
end;