Slym, спасибо за ответ!
Я, после написнаия своего вопроса, еще немного помыслил и в итоге:
if ((ssCtrl in Shift)and (Key = vkRight)) then
PerspEffect1.TopRight := TPointF.Create(PerspEffect1.TopRight.X + 5, PerspEffect1.TopRight.Y);
По горячим клавишам можно растягивать TImage, как нужно.