delphi使用回车设置焦点改变

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //把窗口的KeyPreview := True;
  if Key = Char(VK_RETURN) then
  begin
    SendMessage(Self.Handle, WM_NEXTDLGCTL, 0 , 0);
    Key := Char(0);
  end;
end;