procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
end;
然後在begin和end中間寫上
if key = #65 then application.MessageBox('妳人品不好,請按“確定”','提示',16);
就可以了