procedure Tmis1f.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((shift=[ssALT])and(key=$4E) then...//Alt+N
if ((shift=[ssCtrl])and(key=$4E) then...//Ctrl+N
if ((shift=[ssShift])and(key=$4E) then...//Shift+N

end[@more@]