Delphi - La tecla + aaaaaaaaahhhh!!!

Hay algun evento que me permita usar la tecla '+' como si hiciera TAB+SHIFT. O sea, retroceder el foco. Gracias

Aquí te pongo este código. Ignoro si hay una manera más elegante de hacerlo, pero me parece que funciona. Por cierto, pon el KeyPreview del form a true.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
TabOrd, i: integer;
begin
TabOrd:=ActiveControl.TabOrder; //Control activo AHORA
//Hacemos que vaya para el último control si el activo es el primero
if TabOrd=0 then
TabOrd:=Form1.ControlCount;
//Procedemos a hacer Shift+TAB
if Key='+' then
for i:=0 to Form1.ControlCount-1 do
if (Form1.Controls[i] as TWinControl).TabOrder=TabOrd-1 then
(Form1.Controls[i] as TwinControl).SetFocus;
end;

Suerte.