Клик по кнопке с Shift

Уважаемые, подскажите пожалуйста, как можно написать скрипт, который кликнет левой клавишей мышки по кнопке с зажатым Shift используя метод CallObjectMethodAsync и без использования координат?

Следующий пример кода гинирид исключение.

aBt := GetButtonAction;
  Runner.CallObjectMethodAsync(aBt, 'Click(skShift)');

Уважаемые, может коме пригодиться...

Sys.Desktop.KeyDown(Win32API.VK_SHIFT);
try
  Runner.CallObjectMethodAsync(aBtnDel, 'Click');
finally
  Sys.Desktop.KeyUp(Win32API.VK_SHIFT);
end;

Runner.CallObjectMethodAsync(aBt, 'Click', -1, -1, skShift);

Координаты (-1, -1) означают центр объекта.

Координаты (-1, -1) означают центр объекта.

Удобно!!!

Runner.CallObjectMethodAsync(aBt, 'Click', -1, -1, skShift);

Попробовал вызвать этот метод и действительно сработало, но не на всех кнопках. Например на TBitBtn работает без проблем, а вот TBDock1-->TBToolbar1-->TSpeedButton пишет в лог Asynchronous object call failed.