请问Delphi使用那个函数检查shift按下

Question

请问Delphi使用那个函数检查shift按下
最后给个例子
我刚开始学,谢谢

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssShift in Shift  then
    showmessage('aaaaaa');  
end;

Answer 2

if (GetKeyState(VK_SHIFT) and $8000) then
  //Shift键被按住

Answer 3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssShift in Shift  then
    showmessage('you right!!');  
end;祝：身体健康，答案和分数同样重要！!

Answer 4

谢谢,ysai(赛赛) 
dephi的在线帮助太差了