global-set-key + query-replace-regexp

[luca . spinacci]

I would like a short key to invoke query-replace-regexp command.
I tried
(global-set-key [f1] 'my-query-replace-regexp)
(fset 'my-query-replace-regexp [?\C-\M-%])
but the key "f1" invoke (M-x query-replace-regexp "" "" nil nil)

...Is there a way to call query-... interactively  via a short
key (M-x query-replace-regexp excepted!)?

Thank you,
Luca.