[lmikle]

+1.
Только я бы просто метод написал, для того, что бы не копировать один и тот же код в разных обработчиках:

Код:

procedure TForm1.UpdateRemoteEdit(Edit : TEdit; Value : String);
var
  OldProc: TNotifyEvent;
begin
  OldProc := Form2.Edit1.OnChanged; // Запоминаем какое событие было назначено
  Edit.OnChanged := nil;  // Устанавливаем пустое событие
  Edit.Text := Value; // Производим изменения
  Edit.OnChanged := OldProc;  // Возвращаем старое событие
end;

Тогда обработчик события будет выглядеть так:

Код:

procedure TForm1.Edit1OnChanged(Sender: TObject);
begin
  UpdateRemoteEdit(Form2.Edit1,Edit1.Text);
end;