XP problem

Witajcie

Mam problem wysylam komunikat o nacisnieciu klawisza ENTER ale niestety w XP to nie dziala , dlaczego ?

w WIN 98 dziala bez zarzutu?

oto czesc kodu;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
HB:=FindWindow(nil,'Programik'); // szukaj okna z tytulem
if IsWindowVisible(HB) then
begin
 SetWindowPos(HD,H,0,0,SWP_FRAMECHANGED,SWP_NOMOVE,SWP_NOSIZE	);
 keybd_event(VK_LMENU, 1, 0, 0);
 keybd_event(VK_RETURN, 1, 0, 0);
 keybd_event(VK_RETURN, 1, KEYEVENTF_KEYUP, 0);
 keybd_event(VK_LMENU, 1, KEYEVENTF_KEYUP, 0);
end;

Kto z WAS wie jak to przerobic by dzialalo na XP takze ?
Z gory dziekuje za odpowiedz lub wskazowki.

Serdecznie Wszystkich Pozdrawiam

a to HB to niby co to ma być? Zmienna? Zadeklarowana? Jak? Globalnie? A może nie jest zadeklarowana?

Tak jest zadeklarowane

procedure TForm1.Timer1Timer(Sender: TObject);

var
H : HWND;
HA, HB, HC, HD:Thandle ;  //zmienna do szukania okna

begin
HB:=FindWindow(nil,'Programik'); // szukaj okna z tytulem
if IsWindowVisible(HB) then
begin
 SetWindowPos(HB,H,0,0,SWP_FRAMECHANGED,SWP_NOMOVE,SWP_NOSIZE );
 keybd_event(VK_LMENU, 1, 0, 0);
 keybd_event(VK_RETURN, 1, 0, 0);
 keybd_event(VK_RETURN, 1, KEYEVENTF_KEYUP, 0);
 keybd_event(VK_LMENU, 1, KEYEVENTF_KEYUP, 0);
end;

//jeszcze raz olejesz tag < DELPHI > to post wyleci - lofix

Wie ktos jak ten powyzszy kod przerobic by dzialal tez na XP ?

Z gory dzieki za odpowiedzi i podpowiedzi.

Serdecznie pozdrawiam