bucle entre edit.change y edit.change

[defcon1_es]

Siguiendo tu mismo ejemplo, asi, de cabeza se me ocurre lo siguiente:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin // el valor de la propiedad tag lo usamos para decidir si 
// se hace algo en el OnChange de cada Edit
 TEdit(Sender).Tag := 1;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin   
  if TEdit(Sender).Tag = 1
  then begin     
    Edit2.Tag := 0;     
    Edit2.Text := 'bbbbb';
    Edit3.Tag := 0;
    Edit3.Text := 'ccccc';
  end;
  TEdit(Sender).Tag := 0;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin  
  if TEdit(Sender).Tag = 1
  then begin     
    Edit1.Tag := 0;     
    Edit1.Text := 'fffff';
    Edit3.Tag := 0;
    Edit3.Text := 'hhhhh';
  end;
  TEdit(Sender).Tag := 0;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin   
  if TEdit(Sender).Tag = 1
  then begin     
    Edit1.Tag := 0;     
    Edit1.Text := 'xxxxx';
    Edit2.Tag := 0;
    Edit2.Text := 'yyyyy';
  end;
  TEdit(Sender).Tag := 0;
end;