Fórum ajuda por favor, sobre atalhos no teclado denovo #167460

Opa e ai pessoal to prescisando de uma ajudinha denovo, estou querendo fazer um atralho com os botoes (Ctrl+T), cujo o codigo esta assim:
procedure TFMCadastro_clientes.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Shift = [ssCtrl] then
begin
if key = 84 then
begin
DTMPrincipal.QRCadastro.Close;
DTMPrincipal.QRCadastro.SQL.Clear;
DTMPrincipal.QRCadastro.SQL.Add(´Select cliente, telefone, endereco, numero, RG from cliente´);
DTMPrincipal.QRCadastro.Open;
end;
end;
end;

Nao esta dando certo por favor me ajudem... Obrigado..