小弟我用了回车使控件一步一步往下，可是Memo框内却不能回车了，怎么处理啊

我用了回车使控件一步一步往下，可是Memo框内却不能回车了，怎么办啊？
我设置form的keypreview为true，设置form1的OnKeyPress为  
  if key=#13 then
  begin
  key:=#0;
  perform(WM_NEXTDLGCTL,0,0);
  end;

  这样以后，我界面上每个空间都可以按回车一步一步输入了，可是在memo框中，却不能回车了，怎么解决呢？


  既要保持回车一步一步的功能，又要memo的回车能换行，该怎么办呢？

[解决办法]
procedure TBaseWin.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (Sender is TMemo) then
begin
if ((Key = VK_DOWN) or (Key = VK_RETURN)) then Perform(WM_NEXTDLGCTL, 0, 0)
else if (Key = VK_UP) then Perform(WM_NEXTDLGCTL, 1, 0);
end;
end;