[mak-karpov]

Есть такая функция - GetKeyState(Key:Byte);
Возвращает што-то меньше ноля(помоему) если нажата, и ноль - если нет.

Тоесть

Код:

var c, c1 : Char;
begin
   for c := 'A' to 'Z' do begin
      c1 := '-';
      if GetKeyState(Ord(c)) < 0 then// Получение состояния клавиши
          c1 := '+';
      Label1.Caption := Label1.Caption +c+'='+c1+#10#13;
   end;
....

В итоге должно получиться так.
(нажата клавиша I)
A=-
B=-
C=-
D=-
....
I=+
....
Z=-