for writing cd-rw i am use this parametrers
void __fastcall TCDRWForm::BeginBurn(NERO_MEDIA_TYPE mt)
{
ISOTrack->set_BurnOptions(NERO_BURN_OPTION_CREATE_ISO_FS | NERO_BURN_OPTION_USE_JOLIET);

if(!FinCheckBox->Checked)
{
flags=NERO_BURN_FLAG_CLOSE_SESSION;
}
flags|= NERO_BURN_FLAG_VERIFY;
flags|= NERO_BURN_FLAG_WRITE;
speed=StrToInt(SpeedComboBox->Text.SubString(1,SpeedComboBox->Text.Pos("x")-1));//speed==36
currdevice->BurnIsoAudioCD(L"",L"",false,ISOTrack->GetDefaultInterface(),NULL,NULL,flags,speed,mt);

}

I am try writing dvd-r - failed

I am decide problem

Does it mean you have resolved it?

It is hard to say anything from the code snippet you sent. There is nothing wrong with it apart from passing the litteral Unicode strings where BSTRs are expected. Even though it seems to work, it is considered a bad practice.