procedure TForm2.update_ui_media_component();
var pos:Integer;tmp:String;
begin
minfo_list.Invalidate;
minfo_list.Items.Clear;
for pos:=0 to media_file_list.Count -1 do begin
   tmp:= media_file_list.Strings[pos];
   StrReplace(tmp,'_',' ',[rfIgnoreCase, rfReplaceAll]);
   tmp:=ChangeFileExt(tmp,'.');
   StrReplace(tmp,'.','',[rfIgnoreCase, rfReplaceAll]);
   minfo_list.Items.Add(tmp);
end;
minfo_list.Update;
End;