Fórum tecla enter funcionando como tab #177564

Usando a seguinte rotina é possivel usar a tecla enter com a função da tecla tab
if Key = #13 then
begin
Key := 0;
Perform(Wm_NextDlgCtl,0,0);
end;

Mas isso para td o form, e como faço para em determinados objetos como um DBMemo ou DBGrid (principalmente em DBMemo) a tecla enter voltar a funcionar como enter? esta codigo nao deu mto certo.....
if (Sender is TDBGrid) then
TDBGrid(Sender).Perform(WM_KeyDown,VK_Tab,0);