Поиск по маске "название_файла"

[Dj_SheLL]

Язык DELPHI
Моя цель такова:
Имеются файлы типа
01.2009.ini
....
11.2009.ini
12.2009.ini
01.2010.ini
09.2010.ini
10.2010.ini
т.е. название файла строится так месяц.год.ini
Я хочу сделать чтобы по клику кнопки,(получить текущий месяц не проблема),все файла имя которых меньше текущего месяца и года (т.е. будем говорить какая-нибудь переменная типа string значения 10.2010) удалялись.
Знаю,что нужно делать через цикл,но как совершенно не представляю.
Подскажите пожалуйста какие-нибудь идеи или простые примеры.

Самая трудность сравнивать имена файлов

[Mad_Cat]

шаг 1 ищем файлы ! findfirst findnext в помощь
шаг 2 проверяем их месяц и год! pos copy delete trystrtoint в помощь
шаг 3 если меньше удаляем! Deletefile в помощь
и снова шаг 1 пока не просмотрим все файлы
все остальное в поиске по форуму по именам процедур и функций

[Dj_SheLL]

Вот чё получилось

procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec;
    FindRes: Integer;
    Source,a,b:string;
begin
Source:=datetostr(SysUtils.Date);
Delete(Source,1,3);
a:=Source;
b:=Source;
Delete(a,1,3);//год
Delete(b,3,5);//месяц
FindRes:=FindFirst('*.ini',faAnyFile,SR);
  While FindRes=0 do
  begin
      if ((strtoint(Copy(SR.Name,1,2))>=strtoint(b)) and (strtoint(Copy(SR.Name,4,4))>=strtoint(a))) or ((strtoint(Copy(SR.Name,1,2))>=strtoint(b)) and (strtoint(Copy(SR.Name,4,4))<>strtoint(a))) then
         begin
            FindRes:=FindNext(SR);
            Continue;
         end;
      DeleteFile(SR.Name);
      FindRes:=FindNext(SR);
  end;
FindClose(SR);
end;