Me refería a algo así, vamos...
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
TS:TStrings;
i:Integer;
procedure ArchivosDirectorio(dir, mascara: string;
var lista: TStrings; const soloNombres: boolean);
var
SR: TSearchRec;
begin
dir := IncludeTrailingPathDelimiter(dir);
if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
begin
repeat
if not soloNombres then
lista.Add(ExtractFileName(ChangeFileExt(dir + SR.Name, '')))
else
lista.Add(dir + SR.Name);
until FindNext(SR) <> 0;
SysUtils.FindClose(SR);
end;
end;
begin
TS := TStringList.Create();
try
ArchivosDirectorio(Edit1.Text, '*.bmp', TS, True);
for i := 0 to (TS.Count - 1) do begin
TS.Strings[i] := ExtractFileName(TS.Strings[i]);
end;
ComboBox1.Items.Clear;
ComboBox1.Items.AddStrings(TS);
ComboBox1.ItemIndex := 0;
finally
FreeAndNil(TS);
end;
end;