Probleme mit ExtractFileName

[x000x]

auch das wird nicht klappen, wenn FileNames[x] leer ist...
Test:

Delphi-Quellcode:

var s1, s2: string;
begin
   s1 := ExtractFileName('');
   s2 := ExtractFileName('');
   if s1[1] < s2[1] then
     ShowMessage('AV');
end;