procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssshift in Shift)
and (ssCtrl in Shift) then
label1.Caption:='OK!'
else
label1.Caption:='NO!'
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:='NO!'
end;