Edit, como osso resolver estes problemas.

Preciso fazer uma função que deva apresentar os seguintes resultados:

Se um valor impresso no Edit1 e outro no Edit2 deverá retornar em outro Edit3 o seguinte resultado ( Aprovado ou Reprovado);
esplicando:
Se Edit1 maior ou igual a Edit2 deverá retornar em Edit3 (Aprovado);
Se Edit1 menor ou igual a Edit2 deverá retornar em Edit3 (Reprovado);
O valor da diferença não pode ultarpassar em 10.

Outro problema como posso resolver este erro no edit.
´ is not a valid integer value´ estou utilizando este código.
E_Res->Text=StrToInt(E_Leitura_A->Text)-StrToInt(E_Leitura_B->Text);