JPG mit der letzten Änderung

[EDatabaseError]

Delphi-Quellcode:

function FindLatestModifiedJPG(sPath: string): string;
var Data: TWin32FindData; 
    LastModified: TDateTime; 
    sTime: TSystemTime; 
    FindHandle: Cardinal; 
begin 
  LastModified := 0; 
  Result := ''; 
  sPath := IncludeTrailingPathDelimiter(sPath); 
  FindHandle := FindFirstFile(PChar(sPath + '*.jpg'),Data); 
  if FindHandle <> INVALID_HANDLE_VALUE then 
    begin 
      repeat 
        if ((Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0) then 
          begin 
            FileTimeToSystemTime(Data.ftLastWriteTime,sTime); 
            if (SystemTimeToDateTime(sTime) > LastModified) then 
              begin 
                LastModified := SystemTimeToDateTime(sTime); 
                Result := Data.cFileName; 
              end; 
          end; 
      until not FindNextFile(FindHandle,Data); 
      Windows.FindClose(FindHandle); 
    end;
end;

Moin,

ich habe hier ein kleines Problem mit mjpgs. Ich bekomme alle 2 Sekunden ein JPG mit zufälligen Namen. Mit dem obrigen Code ermittle ich die neueste (aktuelle) Bilddatei. Das Problem ab 500 Bildern wird der Code sehr sehr langsam. Kann man den Prozess beschläunigen?

Mfg
Tobi