转发所有按键？

Question

窗体上有两个编辑框，我在一个编辑框中输入，另一个编辑框实现和我一样的东西，是采用发送按键消息的办法，具体如何做？注意要所有按键最好都转

Answer 1

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edt2.Text:=edt1.Text;  
end;

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
begin
edt2.Text:=edt1.Text;  
end;

Answer 3

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  sendmessage(memo2.Handle,WM_char,Integer(key),1);
end;