[mesutbarlas]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure klik(Sender: TObject; var Key: Char);
procedure CMfocuschanged(var message: TCMfocuschanged); message CM_Focuschanged;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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;
tmemo(sender).onkeypress:=klik;
end;
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
tmemo(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;

end.




Form1 üzerine compenet panelinden eklediğim memolar üzerinde enter tuşuna bastığımda problem vermiyor text i değişiyor fakat kod ile yarattığım B formu üzerindeki memoda enter tuşuna basarsam prosedüre girmiyor ve aşşağı satıra geçiyor (text değşmiyor)

Konu hakkında yardımcı olabilecek biri varmı acaba ?