wenn du die zwei kästen weg haben willst dann machs so:
Delphi-Quellcode:
LStrList.LoadFromFile(LPfad + LSearchRec.Name);
if LStrList.Count > 0 then
Combobox1.Items.Add(LStrList.Strings[0]);
und wenn die dateien aus dem gleichen ordner sind mache aus
LPfad := 'e:\';
einfach
LPfad := ExtractFilePath(Application.ExeName);