FileExists aber Casesensitive

[Luciano]

Danke für die Tipps,

ich habe es jetzt so gelöst

Delphi-Quellcode:

//ListBox2.Items[i2] ist mein Dateiname
if FileExists(Laufwerk+ListBox2.Items[i2]) = True then
  begin
    if FindFirst(Laufwerk+ListBox2.Items[i2],faAnyFile,SR) =0 then
      begin
        if StrComp(PChar(SR.Name), PChar(ListBox2.Items[i2])) = 0 then
          begin
            ListBox3.Items.Add(ListBox2.Items[i2]);
            //Die richtigen Namen werden übernommen. 
           end;
       end;
     FindClose(SR);
   end;