I dowloaded the DelphiNeroAPI-0.41a and its examples Delphi.
I haven't understood yet.
Can I write a program using Delphi 7.0 to burn my CDs automatically? (using the example project DemoApp?)

There is the procedure describe below:
Where I specify the directory or file to burn?
Can I burn multi-session?

procedure TFMainForm.btnBurnISOCDClick(Sender: TObject);
var
Flags: Cardinal;
begin
if cbxSimulateBurn.Checked then
Flags := NBF_SIMULATE
else
Flags := NBF_WRITE;

Flags := Flags + NBF_DISABLE_ABORT + NBF_DETECT_NON_EMPTY_CDRW +
NBF_SPEED_IN_KBS + NBF_CD_TEXT;

if cbxCloseSession.Checked then
Flags := Flags + NBF_CLOSE_SESSION;

if cbxTestSpeed.Checked then
Flags := Flags + NBF_SPEED_TEST;

if cbxBufferUnderrun.Checked then
Flags := Flags + NBF_BUF_UNDERRUN_PROT;

if cbxVerifyData.Checked then
Flags := Flags + NBF_VERIFY;

if not cbxEjectCD.Checked then
Flags := Flags + NBF_DISABLE_EJECT;

case cbWritingMethod.ItemIndex of
0: // TAO
begin
//TAO is the default, do nothing
end;
1: //DAO
begin
Flags := Flags + NBF_DAO;
end;
end;

NeroBurn(NeroDeviceHandle, NERO_ISO_AUDIO_CD, NeroWriteCD, Flags,
NeroDeviceInfos.nsdisDevInfos[cbDevices.ItemIndex].nsdiWriteSpeeds.nsiSupportedSpeedsKBs[cbWriteSpeeds.ItemIndex],
@NeroProgress);

if Assigned(NeroWriteCD) then
ReallocMem(NeroWriteCD, 0);

if Assigned(NeroIsoTrack) then
NeroFreeIsoTrack(NeroIsoTrack);

if Assigned(RootIsoItem) then
FreeIsoItem(RootIsoItem);

if cbxEjectCD.Checked then
begin
btnLoad.Enabled := True;
btnRefreshClick(Self);
end;

edImageName.Clear;

pcWrite.TabIndex := pcWrite.PageCount - 1;
end;