Генерацич папки:
Код:
const
FolderNameTmpl = '%s\%d.%d\';
function GetFolderName : String;
var
N : TDateTime;
Y, M, D : Word;
begin
N := Now;
DecodeDate(N,Y,M,D);
Result := Format(FolderNameTmpl,[ExtractFilePath(ParamStr(0)),M,D]);
end;
Если надо что бы месяца и дни были с ведущими нулями (типа 01 для января), то формат надо записать так:
Код:
const
FolderNameTmpl = '%s\%2d.%2d\';
Дальше, читаем список картинок через FindFirst/FindNext/FindClose в список, например TStringList и из него получаем номер через Random(StringList.Count). Расписывать не буду, бо как просто и гугл в помощь.