¡¡ Genial !! Muchas Gracias.
Además le he puesto Ctr+ A mirando y probando. Y ha quedado así. (por si alguien le sirve:
Código:
if ((ssCtrl in Shift) and ((chr(key)='A') or (chr(key)='a'))) OR (Key=VK_F10) then
btBuscaArtic.Click;
end;
Gracias de nuevo.