[vladimirse]

Сообщение от NumLock

можно "заблокировать" операцию Paste:

Код:

type
  TEdit = class(StdCtrls.TEdit)
  public
    procedure WMPASTE(var Msg: TMessage); message WM_PASTE;
  end;
...
{ TEdit }

procedure TEdit.WMPASTE(var Msg: TMessage);
begin
  //    
end;

Это пока еще рановато для меня
Я сделал так:

Код:

procedure TForm1.Edit3Change(Sender: TObject);
var
  i: integer;
begin
    for i := 1 to length(Edit3.Text) do
       begin
         if not (Edit3.Text[i] in ['0'..'9']) then
                  Label5.Visible:=True;
       end;
end;