[[duilioisola]]

Una forma sencilla sería:

Código Delphi [-]
procedure TForm.OnEditChange1(Sender: TObject);
begin
  ShowMessage('OnChage1 - ' + TEdit(Sender).Text);
end;

procedure TForm.OnEditChange2(Sender: TObject);
begin
  ShowMessage('OnChage2 - ' + TEdit(Sender).Text);
end;

procedure CambiaEvento(Nombre : string)
begin
   if (Nombre = 'OnEditChange1') then
      Edit.OnChange := OnEditChange1;
   if (Nombre = 'OnEditChange2') then
      Edit.OnChange := OnEditChange2;
end;