[ecfisa]

Hola Kenobi.

Probé la tabla con ADO y no me sucede, el código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  tb: TADOTable;
begin
  tb:= ADOTable1;
  tb.First;
  tb.DisableControls;
  try
    while not tb.Eof do
    begin
      ListBox1.Items.Add(FloatToStr(tb.FieldByName('PrimerSubTotal').AsFloat));
      tb.Next;
    end;
  finally
    tb.EnableControls;
  end;
end;

Salida:


Tal vez sean los componentes ¿ Cuales estás usando ?

Saludos