СheckBox и форматы файлов (Delphi)

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

На форме два checkBox. Делаю по отдельности, то есть:

Code:

if CheckBox1.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL);
if CheckBox2.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL);

Все работает. Если выбираю два чекбокса то ничего не работает.

Вопрос: Что нужно прописать что бы при выборе CheckBox1 + CheckBox2 программа обрабатывала текст формата .ini + .txt.

 

как вариант как-то так:

Code:

SetLength(afList, 0);
SetLength(afTempList, 0);
if CheckBox1.Checked then afList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.ini', RL);
if CheckBox2.Checked then afTempList := TDirectory.GetFiles(memo_Folders.Lines[i], '*.txt', RL);
for i:=0 to Length(afTempList)-1 do
begin
  SetLength(afList, Length(afList)+1);
  afList[Length(afList)-1] := afTempList[i];
end;