Tastenkombination Problem bei Keypress

[turboPASCAL]

Wie wäre es denn damit:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if((ssCtrl in Shift) and (Key =39))then
  begin
    ShowMessage('Ctrl + Pfeil rechts');
  end else  // <--<<
  if(Key =39)then
  begin
    ShowMessage('Pfeil rechts nur');
  end;
end;