프로그램 종료시 메시지 다이얼로그를 띄워서 종료할것인지 아닌지를 판단한후에 yes를 선택하면 종료가 되고 no를 선택하면 종료가 되지 않도록 할려고하는데 어느 부분이 잘못된것인지 전혀 감이 잡히질 않네요.. T.T
소스는 아래와 같습니다.

----------------------------------------------------------------------
procedure TsaleFm.FormClose(Sender: TObject; var Action: TCloseAction);
var
kcash,kcash1 : string;
begin
kcash :='1';
kcash1 :='0';

if not query2.Active then exit;
   if not DBGrid1.DataSource.DataSet.FieldByName('일자').isnull then
     begin

          Query1.Close;
          Query1.sql.clear;
          Query1.sql.add('update 판매_tbl set');
           Query1.sql.add('        구분  ='''',                 ');
          Query1.sql.add('        결재구분_id  = '''+kcash+'''                 ');
          Query1.sql.add('where   결재구분_id  = '''+kcash1+'''                 ');

          Query1.ExecSQL;
       if MessageDlg('종료하면 현금결재로 처리됩니다. '+#13+'종료하시겠습니까?',
            mtConfirmation, [mbYes, mbNo], 0) = mrNo then
        exit
        else begin
        Query4.close;
        action := cafree;
        mainFm.Btnenable(false);
       end;

end;

end;

---------------------------------------------------------------------

고수님들 어디가 잘못 된것인지 알려 주심 감사하겠습니다.

항상 질문만 올리네요...
오늘 하루도 즐거운 하루 되시고 즐코하세요...