Edit. Ограничение Опции

[Desktop_4]

Как сделать что бы в Edit2 нельзя было ввести число больше 10 и при этом выводилось сообщение об ошибке...
чего то не выходит.
Как правильно сделать ?

   var
   a:integer;
begin
a:=StrToInt(Edit2.Text);
if StrToInt(Edit2.Text) > 10 then
 MessageDlg('ERORR',mtError, mbOKCancel, 0);
end;

Сообщение отредактировано: Desktop_4 - 31.05.2007 23:38