Enter --gt; Tab

Estou utlizando Delphi 6.
Tenho uma rotina que faz com que a tecla enter funcione como a tecla tab (mudança de campo)
Só que em campos DBMEMO, eu nao gostaria que a função funcionasse, já que se eu apertar o enter dentro de um campo DBMEMO é para ele mudar de linha e não de campo.
Como faço para que o enter funcione como TAB em todas as situações, exceto nesse tipo de campo, onde quero que ele pule de linha?
OBS: Não quero fazer keypreview:=false, no DBMEMO e ja tentei fazer um ´if (sender is DBMEMO) then´ mas não funcionou corretamente. O enter continua funcionando como tab inclusive no DBMEMO.

ME AJUDEMMMMMMM POR FAVOR!