Probleme mit ExtractFileName

[s.h.a.r.k]

Sorry, hast recht! Ist halt schon etwas spät

aber das hier müsste doch zu 100% funktionieren:

Delphi-Quellcode:

var
  s1, s2 : String;
begin
  s1 := ExtractFileName(FileNames[i]);
  s2 := ExtractFileName(FileNames[i+1]);
  if (length(s1) > 0) and (length(s2) > 0) then
  begin
    if s1[1] < s2[1] then
    begin
      //Bla... Blub...
    end;
  end
  else
    // Kein gültiger Dateipfad
end;