Delphi Mesaj Kutusu 2

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbCancel],0);
end;