программно искать файлы в delphi!

нужно программно найти все файлы с расширение .bat и если нахожу то прибавляю к переменной i:=i+1 как это сделать и как искать потом в этих файлах нужную строчку или строчки которые будут братся их memo1 очень надо