Détecter l'appui sur plusieurs touches simultanement

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Sh if t: TSh if tState);
begin
If ((GetKeyState(VK_CONTROL) AND 128)=128) and
((GetKeyState(VK_F5) AND 128)=128) and
((GetKeyState(ord('8')) AND 128)=128)
then
ShowMessage('CTRL+F5+8 Pressed');
end;

//ne pas oublier Form1.Keypreview := TRUE !!!