Avanzar Edits con Enter

[lbidi]

Tengo el siguiente codigo para que se pueda avanzar en los diferentes edits mediante el enter y no el tab.

[code]
procedure TfIngreso.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 and ( ActiveControl <> TBitBtn ) then
begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;
end;
end;

Usando D6 no me compila en las palabras en negrita, alguna sugerencia?
Gracias