Как удалить строку?

[Nesta23]

Надо удалить строку из DBGrid, составленный через SQL.

void __fastcall TForm1::Button5Click(TObject *Sender)
{ Form1->Table1->Active = true;
if(Application->MessageBoxA("Âû óâåðåíû, ÷òî õîòèòå óäàëèòü çàïèñü?","Ïîäòâåðæäåíèå",MB_YESNO|M B_ICONQUESTION)==IDYES)
Table1->Delete();
Query1->Refresh();
Query1->Active=false;
Query1->Active=true;

}

почему то удаляет последнюю строку в таблице. Если написать Query1->Delete(); выдает ошибку что Table1 read only.