Saltar al control anterior, shift+tab. ¿COMO?

[Leonard]

Hola a todos, Amigos Disculpen que no pueda comprender el codigo anterior, pero estoy trabajando en Delphi V.6 con un solo Formulario y lo que quiero en realidad es que cuando el usuario presione la tecla Arriba salte el foco al control anterior como si efectuaramos el un simple Shift+Tab, Poseo el siguiente codigo y me gustaria que me ayudaran en el siguiente codigo que debo poner en el codigo en Negrita.

Código Delphi [-]
procedure TFE_Clientes.FormCreate(Sender: TObject);
begin
    Application.OnMessage := Capturar_Mensajes; // Controla los Mensajes Windows
end;
 
procedure TFE_Clientes.Capturar_Mensajes(var Msg: TMSg; var Handled:Boolean);
var
    Actual : TWinControl;
Begin
    If Msg.message = WM_KEYDOWN Then
    Begin
// ------------------**-------------------
        If (Msg.wParam = VK_RETURN) Then 
        Begin
            Actual := Screen.ActiveControl; 
            If (Actual is TCustomEdit) 
            Then Msg.wParam := VK_TAB;
        End;
// ------------------**-------------------
        If Msg.wParam = VK_UP Then //Si Presiona Tecla Arriba
        Begin
            Actual := Screen.ActiveControl; 
            If (Actual is TCustomEdit) 
            Then Msg.wParam := VK_SHIFT+VK_TAB; 
        End; 
End;