Вызвать функцию с известной сигнатурой для неизвестного класса. Интерфейс

[Ferrum26]

Имеются 2 класса

A = class
  ...
  function abc: integer;
end;

B = class
  ...
  function abc: integer;
end;

TList заполняется экземплярами этих классов. Необходимо перебрать все экземпляры и выполнить для каждого функцию abc. Пробовал использовать interface

Iabc = interface
  function abc: integer;
end;

A = class (TInterfacedObject, Iabc )
  ...
  function abc: integer;
end;

B = class (TInterfacedObject, Iabc )
  ...
  function abc: integer;
end;

Как теперь воспользоваться тем что классы наследуют интерфейс?
Пробовал так:
перебираем элементы списка

Var
i: integer;
List: TList;
begin
{заполнили List}
for i:=0 to List.Count-1 do Iabc(List[i]).abc; 
end;

Ошибка read of adress

[alexBlack]

Сообщение от Ferrum26

TList заполняется экземплярами этих классов.

Тогда такое приведение Iabc(List[i]) неверно.

Вот так:

var ABC:Iabc;

   for i:=0 to List.Count-1 do begin
      if TObject(List[i]).GetInterface(Iabc, ABC)
      then ABC.abc;
   end;

сработает ... один раз, но объекты, хранящиеся в списке будут уничтожены, т.к. после вызова интерфейс больше не используется.

[Ferrum26]

Объекты удалять нельзя, более того функции abc преобразуют эти объекты. Есть ли другой способ? Может есть вариант без использования интерфейсов?

[alexBlack]

Сообщение от Ferrum26

Объекты удалять нельзя, более того функции abc преобразуют эти объекты. Есть ли другой способ? Может есть вариант без использования интерфейсов?

- Наследование от общего класса - предка.

- Если классов не слишком много - проверка условий. Что-то типа:

if        TObject(list[i]) is A then A(list[i]).abc
else if  TObject(list[i]) is B then B(list[i]).abc
//...

- вызов метода класса по имени

[Ferrum26]

Решил проблему следующим образом:

Tabc = class
  function abc: integer; virtual; abstract;
end;

A = class (Tabc)
  ...
  function abc: integer; Override;
end;

B = class (Tabc)
  ...
  function abc: integer; Override;
end;

Var
i: integer;
List: TList;
begin
{заполнили List}
for i:=0 to List.Count-1 do Tabc(List[i]).abc; 
end;