Оффтоп:
Может быть и правда, как обычно, простое непонимание заданного вопроса здесь наблюдается с моей стороны
ждём прояснения ситуации с позиции автора
А если конкретная клавиша нужна, то тогда вот компиляция из всего вышесказанного на примере наблюдения за состоянием Shift
Код:
function ShiftDown : boolean;
var
State : TKeyboardState;
begin
GetKeyboardState(State);
Result:= ((State[VK_SHIFT] and 128) <> 0);
// или
// Result:= (GetKeyState(VK_SHIFT) <> 0);
// или
// Result:= (GetAsyncKeyState(VK_SHIFT) <> 0);
end;