También deberás tener cuidado en caso de que Edit1 o Edit2 no tengan valores numéricos ya que en tal caso StrToInt generará una excepción.
Puedes usar la función StrToIntDef que te devuelve el segundo argumento en caso de que la cadena no sea un número:
Código:
if
StrToIntDef(Edit1.Text, Low(Integer)) >
StrToIntDef(Edit2.Text, High(Integer))
then
{ llamar al programa }
Si Edit1 no tiene un número StrToIntDef regresará el menor entero posible que nunca será mayor que ningún otro de manera que la condición no se cumple. Similarmente, si Edit2 no contiene un número, StrToIntDef regresará el mayor entero posible que no puede ser menor que ningún otro por lo que la condición no se cumple. Si ambos fallan la condición con mayor razón no se cumplirá.
// Saudos