Perform operation on TAB key press ?

Is it possible to perform some operation on TAB key press event ?
If it is, help me with sample code.

Thanks in advance.

procedure TForm1.AppOnMessageEv(var Msg: TMsg; var Handled: Boolean);
var
ShiftState: TShiftState;
begin
if Msg.message = WM_SYSKEYUP then
begin
if (Msg.WParam = VK_TAB) then
begin
// YOUR CODE
end;
end;
end;

You can handle the form's OnKeyPress event and handle only for #8 (ascii code of TAB character).

A fair warning to the original poster - I have tried something like this in the past, and having any components on my form with their tabstop property set to true seemed to prevent the code from running. You might want to watch out for that.