procedure GetFilesNamesFromFolder(Sender: TObject);
var
  SR: TSearchRec;
  FilesStrings: TStrings;
  SelectedPath: string;
begin
  FilesStrings:=TStringList.Create;
  SelectedPath := FormFoldersPictures.EditCurrentFolderPath.Text; // это найдено и известно в виде "путь\"

  if FindFirst(SelectedPath + '*.*', faAnyFile - faVolumeID - faDirectory - faHidden - faSysFile - faArchive, SR) = 0 then
  repeat
    FilesStrings.Add(SelectedPath + SR.Name); // закидываем сюда найденный очередной полный путь к файлу
  until FindNext(SR) <> 0;

  FindClose(SR);
  FilesStrings.Free;
end;