Если нажата клавиша то....

[bananasus]

Добрый день!
Подскажите пожалуйста, как реализовать такую вещь:

if Клавиша такая-то нажата then
begin
Ля-ля-ля
Конопля
end;

[Grag]

if KeyPressed then //ля-ля-ля тополя...

[bananasus]

Сообщение от Grag

if KeyPressed then //ля-ля-ля тополя...

А если с определенной клавишей?

[Grag]

ReadKey тебе в помощь и определяй код нажатой клавиши...

[bananasus]

program Project1;
uses Windows;
{$R *.res}
var sDC:HDC;
begin

repeat
    sDC:=GetDC(0);
    Rectangle(sDC,0,0,5000, 4000);
    ReleaseDC(0,sDC);
until   True;     //А вместо true мне надо проверять нажата ли определенная клавиша

end.

[VadikV]

program Project1;
uses Windows;
{$R *.res}
var sDC:HDC;
ch : char;
begin

ch = #0;
repeat
    sDC:=GetDC(0);
    Rectangle(sDC,0,0,5000, 4000);
    ReleaseDC(0,sDC);
    if KeyPressed then
       ch := ReadKey;
until   ch = #код_клавиши;

end.

[bananasus]

У меня ошибки выдает. Может надо еще модуль подключать какой-то?