Поиск файлов по части имени \ имени

var
  SR: TSearchRec;
  Folder: String;
begin
  Folder := 'D:\';
 
  Folder := IncludeTrailingPathDelimiter(Folder);
  if FindFirst(Folder + '*.*', faAnyFile, SR) = 0 then
  try
    repeat
      if ((SR.Attr and faDirectory) = 0) and                       
         SameFileName(ExtractFileName(SR.Name), 'Patch.') then       
        ShowMessage(Folder + SR.Name);                        
 
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

SameFileName(ExtractFileExt(SR.Name), '.txt') then

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var SR: TSearchRec;
 
begin
 
  if FindFirst('*.*', faAnyFile, SR) = 0 then
  repeat
    if Pos('Path', SR.Name) <> 0 then
      Writeln(SR.Name);
  until FindNext(SR) <> 0;
  FindClose(SR);
  Readln;
 
end.

var SR: TSearchRec;
Folder:string;
 
begin
  Folder := 'D:\';
 
  Folder := IncludeTrailingPathDelimiter(Folder);
  if FindFirst(Folder + '*.*', faAnyFile, SR) = 0 then
  repeat
    if Pos('path', SR.Name) <> 0 then
      Writeln(SR.Name);
      ShowMessage(SR.Name);
  until FindNext(SR) <> 0;
  FindClose(SR);
  Readln;
 
end;

FindFirst('*Patch*.*', faAnyFile, SR)