Delphi обработка ошибок

[world12_tk]

Здраствуйте дорогие форумчанины. Мне задали вопрос, на который не могу дать ответа... У нас есть процедура защиты ввода данных Edit1 и Edit2. Они отличаются тем, что в Edit1 вбиваются целые числа, а в Edit2 действительные числа. В каждой процедуре есть входной параметр Send:TObject. Как с пмощью переменной Send вызывать процедуру защиты ввода для нужного Эдита? Заранее спасибо....
Вот исходный текст процедуры защиты ввода:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',',',#45]) then key:=#0;
end;

[Greblin]

var Edit: TEdit;
...
Edit := Sender as TEdit;

В Edit будет указатель на тот компонент, в котором произошло событие. Дальше уже делайте с ними, что хотите

[world12_tk]

это понятно..... а что вот с ним делать?

[Greblin]

А дальше узнаёте либо с помощью Edit.Name, либо с помощью Edit.Tag какой это конкретно компонент и вызываете нужную процедуру