var おいとも: TSearchRec;
begin
if FindFirst(dir,faAnyFile,おいとも) = 0 then
　begin
　　repeat
　　　　begin
　　　　if lowerCase(ExtractFileExt(おいとも.Name))='.jpg' then
　　　　おまんこ〜♪リスト.add(おいとも.Name);
　　　　end;
　　until FindNext(おいとも) <> 0;
　end;
FindClose(おいとも);
end;