I'm using the code from: <http://www.swissdelphicenter.ch/torry/showcode.php?id=1103> 
to sort my TListView, which works GREAT on everything but numbers with decimals. 

So I tried to do this myself, and I created a new Custom Sort called: 
```
cssFloat
```

Created a new function 

```

function CompareFloat(AInt1, AInt2: extended): Integer;
  begin
    if AInt1 > AInt2 then Result := 1
    else
      if AInt1 = AInt2 then Result := 0
    else
      Result := -1;
  end;

```

Added of the case statement telling it what type the column is..  

```
             cssFloat  : begin
                  Result := CompareFloat(i2, i1);
              end;

```

And I changed the Column click event to have the right type selected for the column.

```

case column.Index of
```

```
0: LvSortStyle := cssNumeric;
1: LvSortStyle := cssFloat;
2: LvSortStyle := cssAlphaNum;

```

else LvSortStyle := cssNumeric;

And The ListView Sort type is currently set to stBoth.

It doesn't sort correctly. And Ideas on how to fix this?

Thank you

-Brad