Menssagem antes de fechar uma tela

Se vc tiver um sistema de venda e gostaria que esse sistema lhe perguntasse antes de fechar. Ai vai uma ajudinha pra vc..

procedure TFCaixa.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
StatusCaixa: Integer;
begin
  if (StatusCaixa = 0) or (StatusCaixa = 3) then
  begin
    if Application.MessageBox('Tem Certeza Que Deseja Sair do Sistema?', 'Sair do Sistema', Mb_YesNo + Mb_IconQuestion) = IdYes then
    begin
      SetTaskBar(true);
      FDataModule.ACBrECF.Desativar;
      Application.Terminate;
    end
    else
      CanClose := False;
  end
  else
  begin
    Application.MessageBox('Existe uma venda em andamento.', 'Informação do Sistema', MB_OK + MB_ICONINFORMATION);
    CanClose := False;
  end;
end;