1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm2.Button1Click(Sender: TObject);
var  W : HWnd;
     wx: string;
begin
sleep(4000);

  { W := FindWindow(NIL,'SRO_Client'); //"SRO_Client" heißt hier das Fenster
   if W <> 0 then
   begin
     PostMessage(W, wm_KeyDown, vk_up,0);   //Simuliert hoch-taste
     sleep (1000);
     PostMessage(W, wm_KeyUp, vk_up,0);
     wx := 'done';
   end;
   edit1.Text := wx;    }

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm2.Button1Click(Sender: TObject);
begin
sleep(4000);

SetCursorPos(1000,100);
mouse_event(MOUSEEVENTF_LEFTDOWN, 1000, 100, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 1000, 100, 0, 0);

end;