OnKeyDown TShiftState und Key

[rokli]

bin nochmal wieder mit einer Frage zum OnKeyDown da:

Delphi-Quellcode:

procedure TfraSQL.rieSQLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   tag := 5;
   if Key = Vk_F5 then begin
      rieSQL.SelectAll;      // <--- das geht!
   end;
   if (ssCtrl in Shift) and (Key = VkKeyScan('a')) then begin
   tag := 5;
      rieSQL.SelectAll;      // <--- das geht NICHT ?!?
   end;
end;

Dieses OnKeyDown befindet sich in einem FRAME!!

Warum kann ich mit 'F5' alles wie gewünscht markieren, aber mit CTRL-a nicht???

Hat da jemand ne Idee?

Tks Rolf