1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var OtherThreadID: Cardinal;
    TargetNil: Boolean;
//...  
begin
  Thread1 := GetWindowThreadProcessId(Self.Handle, OtherThreadID);
  Thread2 := GetWindowThreadProcessId(GetForegroundWindow, OtherThreadID);
  TargetNotNil := False;
  If Thread1 <> Thread2 Then TargetNotNil := AttachThreadInput(Thread2,Thread1, True);
  if TargetNotNil then begin
    Options.TargetHandle := Windows.GetFocus;
      //jetzt weiß man das Handle des Ziels...
    end;    
end;