суммарную строка {delphi}

[Nickolai47]

2. Элементом списка являются пара строка - число. Отображение эле-
мента осуществляется в виде строки, например, «абвгде(123)». Требуется получить суммарную строку, каждым словом которой является строковая часть элемента списка, для которого соответствующее число больше 100. В результирующей строке слова разделяются пробелами.
подскажите как исправить:

procedure TForm1.Calc_BClick(Sender: TObject);
var
  Element:TElement;
  i,n,j:integer;
  sum:string;
begin
if Spisok_LB.Count>0 then
begin
    sum:='';
    for i:=0 to Spisok_LB.Items.Count-1 do
    begin
      Element:=spisok_lb.items.objects[i] as Telement;
      if Element.second>100 then
      sum:=Element.First;

    end;
      Result_E.Text:=sum+' ';

    end
    else
    showmessage('ne vvedeni elementi');
end;
end.

[Nickolai47]

ну так что нибудь кто нибудь подскажет?


все работает но вот пробел в начале строки добавляет (в выводе)

procedure TForm1.Calc_BClick(Sender: TObject);
var
  Element:TElement;
  i,n,j:integer;
  sum:string;
begin
if Spisok_LB.Count>0 then
begin
    for i:=0 to Spisok_LB.Items.Count-1 do
      begin
      Element:=spisok_lb.items.objects[i] as Telement;
      if Element.second>100 then
      sum:=sum+' '+Element.First;
      end;

      Result_E.Text:=sum;
    end
    else
    showmessage('не введены элементы');
end;

end.