Auf Interfaces zugreifen?

[Blup]

Gut zu wissen, schlecht das der Compiler für diesen Fall keine Warnmeldung gibt.

Delphi-Quellcode:

function GetAppInterface(AName: string): IAppInterface; 
begin 
  for i := 0 to FClasses.Count - 1 do 
  begin 
    if FClasses[i].ClassName = AName then 
    begin 
      Result := TAppInterfaceClass(FClasses[i]).Create; 
      Exit; 
    end; 
  end;
  Result := nil;
end;