Moverse por un formulario con la tecla enter

[cisterpe]

He sacado esto de la pagina de trucomania y no me funciona, no se si es que esta mal, o lo he interpretado mal

http://www.q3.nu/trucomania/truco.cgi?1&esp

procedure TPresu.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then { if it's an enter key }
if (ActiveControl is TEdit) then

begin
Key := #0; { eat enter key }
Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
end

end;

Muchas gracias soy muy novato y tengo muchas dudas