[ryderx34]

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

открывать чтоб найти определенные слова.FindFirst/FindNext/FindClose -есть ли примеры их использования?

Код:

var
 SearchRec:TSearchRec;
begin
  if FindFirst('C:\'+'*.jpg', faAnyFile, SearchRec)=0 then
    repeat
      ListBox1.Items.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;