yzhshi说得很正确。
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
ResultBtn: Word;
begin
ResultBtn:= MessageDlg('退出前要保存吗？', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
If ResultBtn = mrYes then begin
Action := caNone; // 取消关闭操作
// Save; // 保存一下
End else If ResultBtn = mrNo then begin
Action := caFree; // 不保存，直接退出
End else If ResultBtn = mrCancel then begin
Action := caNone; // 取消关闭操作
End Else Begin
ShowMessage('你刚才干了些什么？');
End;
end;
