Delphi - help enter

como hago para pasar de edit en edit tecleando enter y no tab

En el formulario
propiedad keypreview = True
Evento OnKeyPress
If (key = #13) and (ActiveControl is TDBEdit) then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
key := #0;
end;

Has lo que te ha dicho vte (29/04/2002), pero en el onKeyPress pregunta mejor por:

if (Key = Char(VK_RETURN))

Bien: aunque yo no he sido el que ha preguntado, todo ha salido bien. pero como hago para que con enter no se ejecuten tambien botones, sino solo los edit?