программа просмотра изображения

[wulf_01]

Мне нужно сделать программу просмотра изображений я использую FindFirst
но он берет только следущюю картинку один раз и все
как сделать чтобы можно было просматривть все картинки наход в данном каталоге ?? Заранее спасибо)

procedure TForm1.Button3Click(Sender: TObject);

var
  searchResult : TSearchRec;

begin
   if FindFirst('*.jpg', faAnyFile, searchResult) = 0 then
  begin

   if FindNext(searchResult) = 0 then
Image1.Picture.LoadFromFile(searchResult.Name);


    FindClose(searchResult);
  end;
end;

[eduard93]

Вызывайте FindNext в цикле и получите список файлов.