расширение в combobox

[Михаил Юрьевич]

Загружаем в listbox из папки файлы, далее нужно из listbox загрузить в combobox названия файлов но без расширений , вот чего наэкспериминтировал: Но загружается в combobox только имя пследнего файла

var
  index: Integer;
begin

  form1.fllst1.Directory := 'c:\555';
 form1.fllst1.Mask := '*.dll';
  For index := 0 to form1.fllst1.Count -1 do
   ExtractOnlyFileName(form1.fllst1.Items[index]);
    ComboBox1.Items.Add(file_extension);//переменная string
end;

function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
 file_extension:=StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
end;

[lexaltd]

  var
  index: Integer;
begin
  form1.fllst1.Directory := 'c:\555';
  form1.fllst1.Mask := '*.dll';
For index := 0 to form1.fllst1.Count -1 do
  begin
    ExtractOnlyFileName(form1.fllst1.Items[index]);
     ComboBox1.Items.Add(file_extension);//переменная string
  end;
end;

[Михаил Юрьевич]

Спасибо большое!

[ZuBy]

Пишем правильно функции!

function TForm1.ExtractOnlyFileName(const FileName: string): string;
begin
  Result := ChangeFileExt(ExtractFileName(FileName), '');
end;

изменяем

var
  index: Integer;
begin
  form1.fllst1.Directory := 'c:\555';
  form1.fllst1.Mask := '*.dll';
  For index := 0 to form1.fllst1.Count -1 do
    ComboBox1.Items.Add(ExtractOnlyFileName(form1.fllst1.Items[index]));
   //ComboBox1.Items.Add(ChangeFileExt(ExtractFileName(form1.fllst1.Items[index]), ''));
end;