procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin OrdenarPor(Column.FieldName); {Esta sería tu función para reordenar} end;