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 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;