Код:
//в начале процедуры
if GetAsyncKeyState(VK_SHIFT) = 0 then Exit;
//или обратное условие
if GetAsyncKeyState(VK_SHIFT) = -32767 then begin
... //операторы, выполняющиеся при нажатой кл. Shift
end;
Можно так же посмотреть в сторону функции GetKeyState