Enter funcionar no grid...please

Pessoal estou tentando fazer o enter funcionar no Grid mas nao tah funcionando do jeito que preciso. vejam o codigo abaixo...

if key=#13 then
begin
key:=0;
if (sender is TDBGrid)then
TDBGrid(sender).Perform(WM_KeyDown,VK_TAB,0)
else
Perform(WM_NEXTDLGCTL,0,0);
end;
Assim ele funciona apenas ate a ultima celula e depois retorna p/ a primeira. Entao eu queria que qndo ele chegasse na ultima celula ele pulasse para baixo mas na primeira novamente p/ adicionar mais itens.
Alguem ja fez isso???

TKS