Я так понял тебе просто надо вывести твое сообшение. Мне кажется лутче будет так:
Событие по вводу символа в едит:
PHP код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i:integer;
begin
try
i:=StrToInt(Edit1.Text);
if i>10 then
begin
MessageDlg('Ошбка ввода данных. проверьте корректность параметров', mtInformation, [mbOk], 0);
Edit1.Text:=10;//это не обязательно
end;
except
MessageDlg('Введены заприщенные символы!', mtInformation, [mbOk], 0);
Edit1.Text:=0;//это не обязательно
end;
end;
Конструкция try except тут используется для вывода сообщения если было введен символ место цыфри