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

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

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

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).abc; 
end;

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).abc; 
end;