Sorting in TDBAdvGrid on calculated float field works not fine

VCL TMS VCL UI Pack
6

Can you try to implement for these columns the event grid.OnGetFormat with something like:

procedure TForm1.AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer;
  var AStyle: TSortStyle; var aPrefix, aSuffix: string);
begin
  if ACol in AMoneyColumn then
    AStyle := TSortStyle.ssFinancial
end;