работа со FindFirst

[wulf_01]

выводит ошибку не пойму почему ((((

procedure TForm1.N2Click(Sender: TObject);
var
i:integer;
begin
  if(OpenPictureDialog1.Execute) then  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   ('*.jpg', faAnyFile, searchResult);
   repeat
     img.add(searchResult.Name);
   until FindNext(searchResult) <> 0;
    k:=i;                      end;
      FindClose(searchResult);
end;

помогите плиз



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[wulf_01]

FindFirst('*.jpg', faAnyFile, searchResult);

[phomm]

объявлены ли searchresult и k ? k := i - неопределено , так нельзя писать. лучше вообще уберите, ибо эта строка делает ерунду, точнее ничего алгоритмического н делает