if (DeleteFile('C:/news/test.txt')) then
 WriteLN('file deleted')
else
 WriteLN('file NOT deleted');

cd C:\Radio\Revealed Recordings\part 01\Replay
xcopy *.mp3 "c:\Radio\Replay House\" /y
del *.mp3
cd C:\

//Set integer value to number of parts in show
const PARTS : Integer = 1;
//Set integer value to "1" for weeks of month to run script
const WEEK_ONE   : Integer = 1;
const WEEK_TWO   : Integer = 0;
const WEEK_THREE : Integer = 0;
const WEEK_FOUR  : Integer = 0;
const WEEK_FIVE  : Integer = 0;

var Song : TSongInfo;
var Present : DateTime;
var curPart, Year, Month, Day, WeekOfMonth : Integer;
var D : string;
var Artist : string;
var Show : string;
var Week : array[0..4] of Integer;

// Settings, Artist has to be EXACTLY like the folder-name.
Artist := 'Meko Hadzic';
Show := 'High Definition On 1Mix Radio..';

//Check if proper week to run
PAL.LockExecution;

Week[0] := WEEK_ONE;
Week[1] := WEEK_TWO;
Week[2] := WEEK_THREE;
Week[3] := WEEK_FOUR;
Week[4] := WEEK_FIVE;

WeekOfMonth := 0;

Present := Now;
DecodeDate(Present, Year, Month, Day);

while Day > 0 do
  begin
    Day := Day - 7;
    if Day > 0 then
      WeekOfMonth := WeekOfMonth + 1;
end;

PAL.UnlockExecution;

//if proper week, continue
while (Week[WeekOfMonth] = 1) do
  begin
    SubDir['C:\Radio\' + Artist].Rescan;
    curPart := 0;

    //Wait Top of the hour
    PAL.WaitForTime('XX:00:00');
    PAL.LockExecution;
    Queue.Clear;
    //Add files to top of queue in reverse order so last loaded plays first
    //Queue.Addfile ('C:\Radio\'+Artist+'\id\id2.mp3',ipTop);
    //Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules);
    //Dir['C:\Radio\'+Artist+'\part 04'].QueueTop(smLRP, NoRules);
    //Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules);
    //Dir['C:\Radio\'+Artist+'\part 03'].QueueTop(smLRP, NoRules);
    //Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules);
    //Dir['C:\Radio\'+Artist+'\part 02'].QueueTop(smLRP, NoRules);
    //Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules);
    Dir['C:\Radio\'+Artist+'\part 01'].QueueTop(smLRP, NoRules);
    //Queue.Addfile ('C:\Radio\'+Artist+'\id\id1.mp3',ipTop);
    Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules);

    //Fade into jingle, which was loaded last
    //Check for incorrectly loaded track and eject if it exists
    if QueuedPlayer <> NIL then
      QueuedPlayer.Eject;
    //Fade into jingle, which was loaded last
    ActivePlayer.FadeToNext;
    PAL.UnlockExecution;
    PAL.WaitForPlayCount(2);
    // Inserting title and date
    while (curPart < PARTS) do
      begin
        Song := TSongInfo.Create;
        DecodeDate(Present, Year, Month, Day);
        D := (IntToStr(Day)) + '.' + (IntToStr(Month)) + '.' + (IntToStr(Year));
        Song['artist'] := Artist + ' @MekoHadzic';
        Song['title'] := Show + ' (' + D + ') Listen now http://bit.ly/2IZUaOU';
        Encoders.SongChange(Song);
        Song.Free;
        curPart := curPart + 1;
        //For multi-part shows otherwise zero
        PAL.WaitForPlayCount(0);
    end;
    Week[WeekOfMonth] := 0;
end;

VAR track: TSongInfo;
VAR copySuccessful : Boolean = False;

track := DIR['C:\'].ChooseSong(smRandom, NoRules);l
Queue.AddSong(track, ipBottom);

copySuccessful := CopyFile(track['filename'], 'C:\Insert-full-new-path-here-inlcuding-directories-and-filename.mp3', False);
IF copySuccessful THEN
  DeleteFile(track['filename']);