Delphi Mesaj Kutusu 3

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbRetry,mbCancel],0);
        case num of
        6:ShowMessage('Yes Tıklandı');
        7:ShowMessage('No Tıklandı');
        4:ShowMessage('Tekrar Tıklandı');
        2:ShowMessage('Çıkış Tıklandı');
        else
        ShowMessage('Tanımlanmayan değer ! ');
        end;
        end;

end.