Обновление

Здравствуй. Помогите разобраться.
Заполняю поля формы, нажимаю сохрать, в результате данные сохраняются и форма Close().
Перед закрытие должна выполниться frMain->PrNew();
[HTML]void __fastcall TfrMain::PrNew()
{
int IRow=1;
dmOne->ClearGrid(sgNew);
rePribNew->Clear();
ShapkaPriborNew();
dmOne->IBQTwo->SQL->Text=" select SA.FOREIGIN_SPR_PRIB AS KOD,"
" SA.DAT_ACT,SP.NAIM,SA.CONDITION "
" from SOOTV_ABOPRIB_NEW SA,SPR_PRIB_NEW SP "
" where (SA.FOREIGIN_ABON=:NOM)"
" AND (SA.FOREIGIN_SPR_PRIB=SP.KOD)";

dmOne->IBQTwo->ParamByName("NOM")->Value=edNom->Text;
dmOne->IBQTwo->Prepare();
dmOne->IBQTwo->Active=true;
while (!dmOne->IBQTwo->Eof) {
sgNew->RowCount=IRow+1;
sgNew->Cells[0][IRow]=
dmOne->IBQTwo->FieldByName("KOD")->AsString;
sgNew->Cells[1][IRow]=
dmOne->IBQTwo->FieldByName("NAIM")->AsString;
sgNew->Cells[2][IRow]=
dmOne->IBQTwo->FieldByName("DAT_ACT")->AsString;
sgNew->Cells[3][IRow]=
dmOne->IBQTwo->FieldByName("CONDITION")->AsString;
dmOne->IBQTwo->Next();
IRow++;
}
dmOne->IBQTwo->Close();
}[/HTML]
Если пройти отладчиком, то все ок!, но таблица sgNew пуста
Если вот так
[HTML]void __fastcall TfrMain::sgNewDblClick(TObject *Sender)
{
PrNew();
}[/HTML]