edit창에서 나가면서 오류를 검사하려합니다.

조건) 입력은 꼭 있어야 하며 영문1자리로 입력해야합니다.



그래서 제가



procedure TForm1.Edit4Exit(Sender: TObject);

begin



if edit4.text='' then

begin

showmessage('요일코드를 입력해주세요');

edit4.text:='';

edit4.setfocus;

exit;

end;



if length(edit4.text)>=2 then

begin

showmessage('영문1자리로 입력해주세용');

edit4.text:='';

edit4.setfocus;

exit;

end;

end;



이렇게 했습니다. 그런데 문제점이 2개나 발생했습니다.



1) 입력을 하지 않고 넘어가 봤더니 글쎄 에러메시지가 뜨면

프로그램이 다운되버립니다. edit4.text='' 조건은 성립되지 않나요?

에러메시지

Project Project1.exe raised exception class EConvertError with message

'''is not a valid integer value'. Process stopped. Use Step or Run to continue.



2) 정수 1자리를 넣어도 메시지가 뜨지 않습니다. 영문인지 아닌지 어떻게 검사합니까?

또, 정수인지 아닌지는 어떻게 검사하나요?



델고수님들의 도움을 부탁드립니다...

꾸벅꾸벅...^.^