Ловушка delphi

[Mirt]

Здравствуйте! Прощу помощи разобраться.
Мне необходимо что бы при нажатии на клавишу TAB выводилась информация об наличии Excel на компьютере.
Саму кнопочку вроде прописал, а вот как вывести Excel не могу понять.

library syshook;
 
uses
  windows, messages, SysUtils;
 
{$R *.res}
 
type
TkbStruct=record
vkCode:DWORD;
scanCode:DWORD;
flags:DWORD;
time:DWORD;
dwExtraInfo:ULONG_PTR;
end;
 
 
var
myHook:HHook=0;
is_down:boolean=false;
 
function LowLevelKeyboardProc(ncode,wPr,
 lPr:integer):integer;stdcall;
var
kbstruct:Tkbstruct;
 
begin
result:=CallNextHookEx (myHook,nCode,wPr,lPr);
if nCode<>HC_ACTION then exit;
kbstruct:=Tkbstruct(Pointer(lPr)^);
 
if (kbstruct.vkCode=VK_TAB) then
begin
if (wPr=WM_KEYDOWN) and (is_down=false) then
 
ВОТ ТУТ КАК-ТО НАДО =)
 
if (wPr=WM_KEYUP) and (is_down) then
is_down:=false;
end;
end;
 
procedure SetHook(isSet:boolean);stdcall;export;
begin
if (isSet) then
begin
myHook:=SetWindowsHookEx(WH_KEYBOARD_LL,@ LowLevelKeyboardProc, hInstance,0);
end;
if (isSet=false) then
begin
UnhookWindowsHookEx(myHook);
myHook:=0;
  end;
end;
 
exports
 SetHook name 'SetHook';
begin
end.

[Stilet]

Ну и задание...

XL:OleVariant;
...
XL := CreateOleObject('Excel.Application');
if XL<>nil then Экзель есть else экзеля нет
xl:=unassigned;