Abkürzungstasten geht net

[SaFu]

Hat jemand mal ne ahnung wie ich es anstellen kann das ich mit hilfe von Abkürzungen, den String "aa" oder "AA" in einer Zelle eines StringGrids einfüghen lassen kann

Delphi-Quellcode:

procedure TForm7.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Celltext :string;
     n ,ACol, ARow :integer;
begin
   with (Sender as TStringGrid) do

    begin
     Celltext:= Cells[ACol, ARow];
 if ((Shift =[ssCtrl]) and (Key = VK_F8)) then
      if (Cells[ACol,ARow] = 'aa') or (Cells[ACol,ARow] = 'AA')then
       begin
        Canvas.Brush.Color:= ClGreen;  //Zellenfarbe
        Canvas.Font.Color:= ClWhite; //Schriftfarbe
        Canvas.Font.Style:= Canvas.Font.Style + [fsBold]; //Text fett
        end;
   MESSAGEbeep(0)
end;
end;