Можно один обработчик OnChange использовать у обоих полей:
Код:
procedure TForm1.EditChange(Sender: TObject);
begin
if Tag=-2147483648 then Exit;
Tag:=-2147483648;
if Sender=Edit1 then Edit2.Text:=Edit1.Text+'Edit1'
else if Sender=Edit2 then Edit1.Text:=Edit2.Text+'Edit2';
Tag:=0;
end;