записывать в FindFirst файлы с разными расширениями

[wulf_01]

привет. мне надосделать программу просмотра изображений проблема в том что я не знаю как брать именно jpg,bmp,gif усли ставлю звездочки с обоих сторон то он берет все подрят и потом когда загружаю в image выкидывает ошибку((
сначало загружаю картинку потом в даной папке ищу все файлы *.* и записываю их в список . если ставить конкретное расширение то он будет только файлы ну jpg допустим(?

procedure TForm1.N2Click(Sender: TObject);

begin
if(OpenPictureDialog1.Execute) then
Image2.Picture.LoadFromFile(OpenPictureDialog1.FileName);
if (FindFirst('*.*', faAnyFile, searchResult)= 0) then
  begin   img := TStringList.Create;   img1 := TStringList.Create;
 
 repeat
img.add(searchResult.name);

img1.add(floattostr(k));

until FindNext(searchResult) <> 0;
 end;
FindClose(searchResult);



end;

[Stilet]

if (FindFirst('*.*', faAnyFile, searchResult)= 0) then
 if LowerCase(ExtractFileExt(searchResult.Name))='.jpg' then Загрузить Чпег
 if LowerCase(ExtractFileExt(searchResult.Name))='.bmp' then Загрузить битмап
 ... И так далее по остальным

идея понятна?

[wulf_01]

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

if (FindFirst('*.*', faAnyFile, searchResult)= 0) then
 if LowerCase(ExtractFileExt(searchResult.Name))='.jpg' then Загрузить Чпег
 if LowerCase(ExtractFileExt(searchResult.Name))='.bmp' then Загрузить битмап
 ... И так далее по остальным

идея понятна?

спасиб идею понял))