#include <Printers.hpp>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(PrinterSetupDialog1->Execute())
 MessageDlg(Printer()->Printers->Strings[Printer()->PrinterIndex]
    , mtInformation, TMsgDlgButtons() <<< mbOK, 0);
}