Ihr könnt doch per for-Schleife das Array durchgehen und schauen ob das Zeichen übereinstimmt.
Delphi-Quellcode:
if Length(Eingabe.Text) = 1 then
for i := 0 to High(Array) do
if LowerCase(Array[i]) = LowerCase(Eingabe.Text) then ... else ...;
Muss natürlich noch angepasst werden, nur erstmal ein Denkanstoß.