KeyLGR Tablica i nie wypisywanie niechcianych znaków (Odczyt i Warunek - problem)

[camilost]

Mam problem, bo nie wiem zbytnio jak sprawdzić, czy KeySpyXP (key[TABLICA]) przechwycił np. klawisz myszki.

Stworzyłem sobie tablice niechcianych klawiszy, aby łatwiej je było dodać, ale nie potrafię ich wyczytać i sprawdzić.

Nie wiem również, co zrobić, żeby anulowało wysyłanie do pliku jeśli któryś klawisz z Tablicy(Zezwol) zostanie wciśnięty, a klawisz chciany wypisany
(bez zbędnych odstępów(ENTERów), gdy miałem memo1.text:=Stringreplace(memo1.Text,'{CAPS LOCK ON}','', [rfReplaceAll, rfIgnoreCase]); zostawał odstęp w linii : |

Czyli ogólnie nie wiem, jak wyłapać coś z tablei (forem jakoś się da, tyle wiem, ale nie wiem czy do mojego pomoże i jak zrobić)

Tutaj się nie umie już połapać

procedure TForm1.KeySpyXP1Key(Sender: TObject; key: String);
begin

//memo1.text:=Stringreplace(memo1.Text,'{RightMouseButton}','', [rfReplaceAll, rfIgnoreCase]);

  if
    key[1]='{'
  then  //Tu się wszystko zaczyna
    if
      key:=Tablica
    then
      Delete(Tablica[])
    else // Tu się powinno kończyć ?
      memo1.lines.add(key)
  else
    memo1.Text:=memo1.text+key;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

Tablica[0] := '{RightMouseButton}';
Tablica[1] := '{LeftMouseButton}';
Tablica[2] := '{MiddleMouseButton}';
Tablica[3] := '{SCROLL LOCK ON}';
Tablica[4] := '{SCROLL LOCK OFF}';
Tablica[5] := '{CAPS LOCK ON}';
Tablica[6] := '{CAPS LOCK OFF}';
Tablica[7] := 'MiddleMouseButton';
end;