[sorockinalex]

Сделал!
Делать так:
Помещаем процедуру в public

Код:

type
  TDM = class(TDataModule)
...
public
    procedure EditKeyPressDigits(Sender: TObject; var Key: Char);

внизу сама процедура

Код:

procedure TDM.EditKeyPressDigits(Sender: TObject; var Key: Char);
const
  allowedsymbols: set of Char = ['0'..'9', #8, #46];
begin
  if (Key in allowedsymbols) then
  begin
  end
  else
    key := #0;
end;

Вызов процедуры так:

Код:

  Edit2.OnKeyPress := DM.EditKeyPressDigits;

У меня была ошибка - вместо OnKeyPress было OnChange