Удаление содержимого папок

Приветствую, пример, как очистить папку mp3 которая распологается в папке с проектом:

procedure ClearDirectory(path: string);
var
    sl: TStringList;
    i,c: integer;
begin
    sl := TStringList.Create;
    sl.Text := GetFilesList(path);
    c := sl.Count-1;

    for i := 0 to c do
    begin
        DeleteFile(sl[i]);
    end;

    sl.free;
end;


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
   sPath:string;
begin
    sPath := ExtractFilePath(Application.Exename) + 'mp3';
    ClearDirectory(sPath);
end;

Спасибо большое за помощь с датами все получилось, месяцы считаются, а вот с удалением не получилось. При компиляции проекта пишет "Undeclured idendifier 'DeleteFile'". Видать у меня старая версия программы 1,44 или нужно эту процедуру определить.

Еще хотел спросить, какие строковые типы поддерживает программа? Я в компонент File загружаю некоторый файл и появляется название файла с расширением. Мне нужно скопировать название файла без расширения  и вставить его в текстовое поле. я пытаюсь это сделать так:

procedure Form1_File_OnChange (Sender: string);
var i,L:integer;
   s,p:string;
begin
 s:= Form1.File.Text;
 L:=Length(Form1.File.Text);
  p:='';
   For i:=0 to L-5 do
  begin
     p:=p+s[i];
  end;
 Form1.Indicator.text := p;
end;

В результате текстовое поле пустое, подобный фокус в делфи проходил. L-5 не случайно, поскольку от 0 до L-1 это полное название с расширением, отнимаем само расширение(3 символа) и точку, получается  L-5.

А начиная с какой версии функция "DeleteFile" присутствует?

Наверное Вас 1000 раз задавали этот вопрос, как из базы вытащить файл, который был ранее в нее внесен?

компонент DBFile позволяет файл как сохранить, так и извлечь его, для извлечения используется кнопка с правой стороны данного компонента.

Хотел спросить, если новая версия программы пишет, что не зарегистрирована, то как я понял, через 60 дней она перестанет работать и придется покупать лицензию. Лицензия это ключ? Она привязывается к железу компьютера? Я могу оплатив программу потом перенести ее на другой ПК? Если заканчивается пробная лицензия, от созданные при помощи нее программы так же перестанут запускаться или окончание пробного периода не влияет на откомпилированные проекты? Перевод созданной программы с бесплатной 1,44 на более новую платную, производится удалением старой среды установкой новой и компиляцией в новой старого проекта? Или что то в программе нужно менять чтобы в новой среде компилировать?
Извините за кучу вопросов, уж ОЧЕНЬ понравилась Ваша программа. Показал на работе начальнику результат работы программы ему понравилось в принципе то же самое я мог бы сделать в Delphi только код у меня бы в разы вырос ну и время на создание ушло бы больше. Буду уламывать шефа на приобретение лицензии.