numeros amstrong en delphi

chipo
10 de Abril del 2005
Hola necesito un programa que me de todos los numeros amstrong de 1,2,3 y 4 cifras, los numeros amstrong son los naturales de n cifras tal que la suma de la las cifras elevadas a la potencia n da el mismo numero. ejemplo: 153 = 1^3 + 5^3 + 3^3

necesito que sea del mayor rendimiento en cuanto a tiempo de ejecución se refiere.

gracias
chìpo