showmessage con si y no

[Khronos]

Algo un poco mas practico seria con una variable de tipo word pero es lo mismo .

Código Delphi [-]
 
var
respuesta: word;
begin 
respuesta:= MessageDlg('¿Salir sin guardar?', mtConfirmation, [mbYes, mbNo, mbCancel], 0); 
If respuesta=mrYes then begin
//lo que sea
end;
 
If respuesta=mrNo then begin
//....
end;
 
If respuesta=mrCancel then begin
//---
end;
 
end;

Salu2