Открытия графических файлов

[Kocapb]

Доброго дня суток. Необходимо сделать открытие всех графических файлов. Освоил открытие через
if ( FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec) == 0)
Image1->Picture->LoadFromFile(aPath+aSearchRec.Name );
//aPath - директория
//aSearchRec - результат поиска

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

[pu4koff]

использовать цикл и FindNext?

[Kocapb]

хмм вроде понятно, но как то смутно... попробую попариться =)

[Kocapb]

Сообщение от Kocapb

хмм вроде понятно, но как то смутно... попробую попариться =)

а я тут подума а если просто написать еще одно открыте =) и заработало
if ( FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec) == 0)
{
Image1->Picture->LoadFromFile(aPath+aSearchRec.Name );
Image1->Visible = true;
GroupBox1->Caption = " " + aSearchRec.Name + " ";
ListBox1->Items->Add(aSearchRec.Name);
while (FindNext(aSearchRec) == 0 )
ListBox1->Items->Add(aSearchRec.Name);
}
if ( FindFirst(aPath+ "*.bmp", faAnyFile, aSearchRec) == 0)
{
Image1->Picture->LoadFromFile(aPath+aSearchRec.Name );
Image1->Visible = true;
GroupBox1->Caption = " " + aSearchRec.Name + " ";
ListBox1->Items->Add(aSearchRec.Name);
while (FindNext(aSearchRec) == 0 )
ListBox1->Items->Add(aSearchRec.Name);
}

сделал тупо перечислением всех условий =) хотелось бы узнать это оптимально и как скажется на времени выполнении программы???
если кто желает вывесить другую реализацию более оптимальную Welcome!!! хотелось бы рассмотреть не одно решение