Probleme mit ExtractFileName

[Cyberbob]

Ich hab folgenden Code im Quelltext stehen!

Delphi-Quellcode:

procedure TfrmPlayer.btnSortClick(Sender: TObject);
var
  z : LongInt;
  Speicher : TFileName;
  Changed : Boolean;
begin
  Repeat
    Changed := False;
    For z := 0 To Length(FileNames) - 2 do
    begin
      if ExtractFileName(FileNames[z])[1] > ExtractFileName(FileNames[z+1])[1] then
      begin
        Speicher := FileNames[z];
        FileNames[z] := FileNames[z+1];
        FileNames[z+1] := Speicher;
        Changed := True;
      end;
    end;
  Until Changed = False;

  lbxFiles.Clear;
  For z := 0 To Length(FileNames) - 1 do
    lbxFiles.Items.Add(ExtractFileName(FileNames[z]));
end;

Ich habs in einem anderen Projekt auch schon so gelöst und erhalte plötzlich überall diese Meldungen. Früher gings mal!