[NumLock]

Можно один обработчик 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;