обработчик событий

[IIaJIbI4]

доброго времени суток) подскажите как сделать обработчик событий чтобы Edit в котором нужно писать цифрами если напишешь буквами должен выводить сообщение что нужно писать цифрами

[Gulik]

procedure TMainForm.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = 13 then
      Exit ;
   if (Key < 96) or (Key > 106) then
      Application.MessageBox('Можно вводить только чиловые данные', 'Ошибка', MB_ICONERROR) ;
end ;

или так...

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0'..'9', #8]) then begin
      Key := #0 ;
      Application.MessageBox('Можно вводить только чиловые данные', 'Ошибка', MB_ICONERROR) ;
   end ;
end;

[Apostol13]

есть еще проще конструкция =)

try
   StrToFloat(Edit1.Text);
except
   ShowMessage('нужно писать цифрами если напишешь буквами');
end;

В зависимости что желаем, делаем обработку По Клику или по Изменению Поля