[walito]

Otra similar

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if MessageDlg('¿ Realmente desea salir de Sistema ?', mtInformation, [mbYes, mbNo], 0) = mrYes then
        CanClose := true
    else
        CanClose := false;
end;

Salutes