Stuff

When i click enter in memo s on form1 
memos text changing but when i click enter key in a2  (new created memo on b form) text dont changing

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure klik(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure CMfocuschanged(var message: TCMfocuschanged); message CM_Focuschanged;

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Tform1.CMFocusChanged(var Message: TCMFocusChanged);
var
i:integer;
BEGIN
  if (message.sender is tmemo) then
  begin
    for i:=0 to componentcount-1 do
    begin
      tedit(message.sender).onkeypress:=klik;
    end;
  end;
end;

procedure TForm1.klik(Sender: TObject; var Key: Char);
begin
 if key = #13 then begin
    key:=#0;
     tmemo(sender).Text:='asd';
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
a,a2:TMemo;
b:tform;
begin
  a:=tmemo.Create(self);
  a.Parent:=Form1;
  b:=tform.create(self);
  a2:=Tmemo.create(b);
  a2.Parent:=b;
  b.show;
end;

end.