Обработчик событий для нескольких компонентов

procedure TF_MainForm.ED_RangeMinChange(Sender: TObject);
 var i:integer;
begin
for i := 1 to Length(ED_RangeMin.Text) do
  If ED_RangeMin.Text=',' Then ED_RangeMin.Text:='';
end;
 
procedure TF_MainForm.ED_RangeMinKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ( (Key=vk_Insert) and (ssShift in Shift)) then ClipBoard.Clear
end;
 
procedure TF_MainForm.ED_RangeMinKeyPress(Sender: TObject; var Key: Char);
var
 i,j:Integer;
begin
   if Not (Key in ['0'..'9', ',', #8]) then Key:=#0;
  If RangeFlag <>0 Then
    If Not (Key in ['0'..'9', #8]) then Key:=#0;
  If Key=',' then RangeFlag:=1;
  j:=1;
  If Key=#8 Then
  Begin
    For i:=1 To Length(ED_RangeMin.Text)-1 Do
      If ED_RangeMin.Text[i]=',' Then j:=0;
    If j=0 Then RangeFlag:=1 else RangeFlag:=0;
  End;
end;
 
 
 
procedure TF_MainForm.ED_RangeMinMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ClipBoard.Clear
end;

procedure TF_MainForm.ED_RangeMinKeyPress(Sender: TObject; var Key: Char);
begin
end;

// назначаем OnKeyPress элементу Ed_RangeMax такой же, как и у ED_RangeMin
ED_RangeMax.OnKeyPress := ED_RangeMin.OnKeyPress;
// или так:
ED_RangeMax.OnKeyPress := @ED_RangeMinKeyPress;