Ordenar un campo calculado en un DBGrid

[borlandpablo]

Buenas, tengo creado 2 campos calculado en una tabla DBGrid. En el evento OnCellTitle del DBGrid, lo tengo programado para que me ordene por campos, pero cuando lo ordeno por un campo calculado me da error. Os dejo lo que tengo de código:

void __fastcall TXCatalogos::DBGrid1TitleClick(TColumn *Column)
{
  AnsiString FName = Column->FieldName;
  XDatos->QCatalogos->Close();
  XDatos->QCatalogos->SQL->Text = "SELECT * FROM Catalogo ORDER BY " + FName;
  XDatos->QCatalogos->Open();
}