delphi - tanteo - ¿Cómo hacer una iteración de soporte de interfaz correctamente?