[Помидоркин]

Имеется код

Код:

 case Key of

  ..............

  'G', 'g', 'П', 'п'  :
  begin
    s := edtCurFrame.Text;
    Delete(s,1,1); Insert('G', s, 1);
    Key:=#0;
    edtCurFrame.Text:=s;
    edtCurFrame.SelLength:=0;
    edtCurFrame.SelStart:= Length(s);
  end;

и вот таким "макаром" еще семь клавиш , т.е. задача: при нажатии на соответствующую клавишу должен вставляться определенный символ в определенное место в строке, не зависимо от раскладки клавиатуры и регистра.
Собственно все работает, но подозреваю, что код можно написать проще, например, создать массив, что-то типа

Код:

var charry: array[1..8] of char;

и проверять содержится ли в этом массиве нажатая клавиша, а как дальше объяснить программе, что мне нужна заглавная, латинская буква?