var

MyForm:TCLForm;

noteMemo : TclMemo;

procedure noteMemoOnKeyDown;

begin

   if MyForm.clSenderKey = 13 then

    ShowMessage('Enter Basildi');

end;

begin

MyForm := TCLForm.Create(Self);

noteMemo := MyForm.AddNewMemo(MyForm,'noteMemo','Test MemoMessage');

noteMemo.Align := alClient;

MyForm.AddNewEvent(noteMemo,tbeOnKeyDown,'noteMemoOnKeyDown');

MyForm.Run;