: 답변 정말 감사드려요 ~
: 그런데 저렇게 하면 입력란에 1000 이상까지 써지지 안나요??
: 1000 까지만 쓰이고 1001 이 되면 입력이 안되게 하려면
: 어떤 명령어를 써야하나요?...

------------------------------------------------------------------------------------------------
저도 쌩초보지만 저랑 비슷한질문하셔서 제가 도움받아서 이해한대로 써볼께요


begin
if Edit1.Text = ' ' then exit;
if StrToInt(Edit1.Text) > 1000 then
Edit1.Text  := '1000' ;
end;

이러캐 하면 1000이상을 입력하면 천까지만 입력되도록 할 수 있네요
이렇게는 생각못했는데 '샤악한래빗' 님이 알려주신대로 써봤어요 ㅋ
도움되셨음 하네요.