bucle entre edit.change y edit.change

[alremo81]

Buenas a todos:
Estoy realizando un programa con varios edit en el form y se trata de cambiar el edit.text de los edit cuando uso el evento edit.changed de uno y asi con todos. pero tengo el problema que entra en un bucle infinito, Porque al cambiar un edit.text se cambian todos los demas, pero al cambiarse los demas ellos tambien llaman a su propio evento edit.changed y vuelve a cambiarlos todos y asi sucesivamente.

Estoy de practicas en una empresa y me han pedido este ejercicio y estoy parado, Agradeceria mucho una ayuda rapida.

Gracias de antemano.

codigo de ejemplo por si no lo habeis entendido:

procedure TForm1.edit1Change(Sender: TObject);

edit2.text := 'aaaa';
edit3.text := 'bbbb';

procedure TForm1.edit2Change(Sender: TObject);

edit1.text := 'cccc';
edit3.text := 'dddd';

procedure TForm1.edit1Change(Sender: TObject);

edit1.text := 'eeee';
edit3.text := 'ffff';