PAL.Loop := True; 
const TimeHours   : String = 'G:\MixFM\Times\hora\'; 
const TimeMinutes : String = 'G:\MixFM\Times\minutos\'; 
const MyGMTZone   : Integer = -3; 

var C,N          : Integer; 
var fname        : String; 
var fnamehh      : String; 
var fnamemm      : String; 
var ampm         : String; 
//var E : DateTime = Queue.ETA;    // Return the length of the queues 
var hh,mm,ss,ms : Integer; 

   DecodeTime(Now,hh,mm,ss,ms); 
   if (hh = 0) then hh := 12; 
   if (hh > 12) then hh := (hh-12); 
   if (mm <= 9) then 
    WriteLn('The Time Is '+IntToStr(hh)+':'+'0'+IntToStr(mm)); 
       if (mm >= 10) then 
         WriteLn('The Time Is '+IntToStr(hh)+':'+IntToStr(mm)); 
    
var E : DateTime = Queue.ETA; 

         DecodeTime(E,hh,mm,ss,ms);

           if (hh = 0) then hh := 12; 
          if (hh > 12) then hh := (hh-12); 
          if (hh >0) then 
       fnamehh := IntToStr(hh)+'.mp3';       //get the right file name 
         WriteLn(fnamehh); 

    if (mm <= 9) then 
       fnamemm := '0'+IntToStr(mm)+'.mp3'      //get the right file name
     else 
       fnamemm := IntToStr(mm)+'.mp3';         //get the right file name
         WriteLn(fnamemm); 

    if (mm <= 9) then 
    WriteLn('Will SayTime at '+IntToStr(hh)+':'+'0'+IntToStr(mm)); 
       if (mm >= 10) then 
         WriteLn('Will SayTime at '+IntToStr(hh)+':'+IntToStr(mm)); 
           // Just checking 

              // ends up in queuetop. 
     Queue.AddFile(TimeMinutes+fnamemm,ipTop); 
   Queue.AddFile(TimeHours+fnamehh,ipTop); 
              {Gave Sam 1 song, gives clockwheel re-fill time, 
                you may not need it}
        PAL.WaitForPlayCount(10);  {You can use anything for a wait time here}