Дополнительный пробел в конце имени

[Haberman]

subnames.DelimitedText:=FileListBox1.Items.Strings[FileListBox1.ItemIndex];
  for l:=0 to  subnames.Count-1 do   begin
    if not (l=subnames.Count-2) then
    combined:=combined+subnames[l]+' ' else
    combined:=combined+subnames[l];

почему получается лишний пробел в конце? как избавится?

[Serge_Bliznykov]

возможно, что оптимизация так себя проявляет.
а если так написать?

subnames.DelimitedText:=FileListBox1.Items.Strings[FileListBox1.ItemIndex];
combined := '';
if subnames.Count>0 then begin
  for l:=0 to  subnames.Count-2 do combined:=combined+Trim(subnames[l])+' ';
  combined:=combined+Trim(subnames[subnames.Count-1]);
end;

[Аватар]

not (l=subnames.Count-2)

В коде ТС пробел не добавляется к предпоследнему элементу, а к последнему добавляется.