(100 puntos de programación Delphi) ¿Cómo darme cuenta de que solo se permiten ingresar números enteros mayores que cero en la edición?

LeftStr(edit1.text, 1)='0'

Cambiar a LeftStr(edit1.text key, 1)='0'

Porque está vacío al principio y determina el estado de edición antes de presionar la tecla, por lo que ocurre un error, así que simplemente agregue la tecla presionada y ¡todo estará bien!