Hola juaarias.
Pero entonces no estamos hablando de un TListBox sino de un TStringGrid que no es lo mismo...
En ese caso sería:
Código Delphi
[-]
function SumarColumna(ST: TStringGrid; Column: Integer): Double;
var
i: Integer;
v: Double;
begin
Result:= 0;
for i:= ST.FixedRows to ST.RowCount-1 do
if TryStrToFloat(ST.Cells[Column, i],v) then
Result:= Result+v;
end;
Llamada:
Código Delphi
[-]
begin
ShowMessage(FloatToStr(SumarColumna(StringGrid1, 1))); end;
Saludos.