[icWasya]

прямо так

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit2.Text:= Edit1.Text;
end;   
procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1.Text:= Edit2.Text; 
end; 

делать нельзя. Получите преполнение стека
Нужен дополнительный контроль затем, откуда приходит Change.
Например так

Код:

  private
    InChange:Boolean;
............................
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if InChange then Exit;
  InChange:=true;
  try
    Edit2.Text:= Edit1.Text;
  finally
    InChange:=false;
  end; 
end;   
procedure TForm1.Edit2Change(Sender: TObject);
begin
  if InChange then Exit;
  InChange:=true;
  try
    Edit1.Text:= Edit2.Text;
  finally
    InChange:=false;
  end; 
end;