Упорядочивание записей

Не могу упорядочить записи по колонке:

//-------------------------------------------
void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)
{
if(Column->FieldName=="NUM")
{
IBDataSet1->Close();
try
{
IBDataSet1->RefreshSQL->Clear();
IBDataSet1->RefreshSQL->Add("select * from PERS where Num=:Num order by NUM");
IBDataSet1->Open();
}
catch(EDatabaseError&)
{
IBDataSet1->Refresh();
IBDataSet1->ApplyUpdates();
}
}
}
//----------------------------------------------

void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)
{
if(Column->FieldName=="NUM")
{
try
{
IBDataSet1->Close();
IBDataSet1->SelectSQL->Clear();
IBDataSet1->SelectSQL->Add("select * from PERS order by Num");
IBDataSet1->Open();
}
catch(...)
{
IBDataSet1->ExecSQL();
}
}
}
//------------------------------------

Что не так в обоих случаях?