Delphi - cambier tecla cursor por Shift

el siguiente procesimiento para capturar eventos y cambiar una teclas por otra. pero no se comó decirles que se ulso una combinación de teclas.

Este ejemplo me cambia el enter un el Tab en con editbox, pero quiero que cuendo se pulse el cursor hacia riba que lo cambie por Shift+tab

Gracias

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
case Msg.Message of
WM_KEYDOWN, WM_KEYUP:
case Msg.wParam of
// Reemplazar el ENTER en cuadros de texto por TAB
13: if Screen.ActiveControl is TCustomEdit then Msg.wParam := 9;
end;
end;
end;

Puedes ver mi artículo al respecto en Delphi3000.com (sigue el enlace de arriba). Está en inglés, pero de todos modos no dice demasiado a pesar de tantas palabras. En vez de convertir un UP en SHIFT+TAB simplemente anula la tecla y obliga al desplazamiento del foco al control anterior al activo en el orden de tabulación mediante un mensaje al formulario activo.

Espero que te sirva.

Ernesto