3D в Delphi 2005 проблема

[Siber_Dec]

Есть маленькая проблемка
В общем всё запускается всё работает, вот только никак не могу впихнуть обработку клавиш KBD в в выполняемую программу

Выполняемый цикл:

while GetMessage(pMsg, 0, 0, 0) do
begin
TranslateMessage(pMsg);
DispatchMessage(pMsg);
end;

Сообщения:

WM_CREATE
WM_PAINT
wm_DESTROY

3D - переписанная библиотека с Си на Delphi
Обекты вставляются по средствам загрузки Mesh

[Siber_Dec]

Четь не забыл стандартная библиотека VCL не используется!!!

[Siber_Dec]

С этой проблемой оказалось очень просто разобраться,
Стоило только немного поискаить инфу про WINAPI:

function GetAsyncKeyState (vkey: shortint): integer;

Если она возвращает число отличное от 0, тогда нажата клавиша vkey, правда vkey - это Ord('Q') - любой зфглавной буквы