function TForm1.getPictures(StartDir:String;recursive:Boolean):Integer;
var
  SearchRec : TSearchrec;
begin
  result := 0;
  if FindFirst(StartDir+'\*.jpg',faAnyFile,SearchRec) = 0 then
    begin
       imageSet.filePath:=ExtractFilePath(StartDir);
       imageSet.fileName:=ExtractFileName(SearchRec.Name);
       write(BatchFile,ImageSet);
       inc(result);
       While FindNext(SearchRec) = 0 do
         begin
           imageSet.filePath:=ExtractFilePath(StartDir);
           imageSet.fileName:=ExtractFileName(SearchRec.Name);
           write(BatchFile,ImageSet);
           inc(result);
         end;
       FindClose(SearchRec);
    end;

    if recursive then
      if (FindFirst(StartDir+'*.*',faDirectory,SearchRec)=0) then
        begin
          repeat
            if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
              getPictures(StartDir+SearchRec.Name,true);
          until FindNext(SearchRec)<>0;
          FindClose(SearchRec);
        end;

end;