procedure TForm1.sGauge2Change(Sender: TObject); var KlientWindow:HWND; begin KlientWindow := FindWindow(nil, PChar('Jade Dynasty')); if sGauge2.Progress < 90 then begin SendMessage(KlientWindow, WM_KEYDOWN, VK_F7, 0); SendMessage(KlientWindow, WM_KEYUP, VK_F7, 0); end; end;