[Alegun]

Наверное проще определять по свойству Tag или имени родителя элемента, создав и задав единственную процедуру чейнжа для всех

Код:

procedure Form1.EditChange(Sender: TObject);
begin
 with (Sender as TEdit) do
  case Parent.Tag of
   10: Text:= Parent.Name;
   20: Text:= Parent.Name;
   // etc.
  end;{case}
end;

или

Код:

...
 with (Sender as TEdit).Parent do
  begin
   if Name = 'Panel1' then 
   if Name = 'Panel2' then
   ...
  end;
...