Delphi - Sumar un Dblistbox o listbox

Hola una pregunta como puedo sumar los datos de un dblistbox o un listbox y que me muestren en un label o edit, ya que estoy haciendo un programa semenjante a una tienda de autoservicios, bueno espero que me auxilien.Gracias

Hola Ricardo,

En primera estoy suponiendo que los datos que deseas sumar son cantidades numericas (enteros o flotantes), te doy un ejemplo facilito.

procedure TForm1.Button1Click(Sender: TObject);
var
ii : integer;
suma : double;
begin
suma := 0.00;
ii := 1;
repeat
begin
suma := suma + StrToFloat(ListBox1.Items[ii]);
ii := ii + 1;
end;
until ii = ListBox1.Count;
Edit1.Text := FloatToStr(suma);
end;