list box

[ecfisa]

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)));  // en este caso suma columna 1
end;

Saludos.