Message Dialog Box with "IF"

[ferhatkuskaya]

Hİ THANK YOU FOR YOUR LABEL COMMENTS LETS FORGET THAT QUESTION. I have chosen it with a different solution and :). now I want to know how I will use the message buttons with if conditions...
I dont know why my message dialog box's message values are passive in my project. I want to make exited from my program when I click the yes button of message dialog box. But I couldnt get this result from these message dialog box. CAn you help me immediately pls? My code content is like below:

procedure programexit;
var
buton:integer;
begin
Buton:= Application.MessageBox('Are you sure to exit?',
'Mesaj Kutusu',
mb_YesNoCancel+mb_DefButton1);
if Buton = 1 Then Halt;
end;

procedure TAnaform.Image11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image11.Visible:=True;
CIKIS;
end;