删除表记录问题

Question

我在删除一表记录时这样写的一段代码
procedure TfrmDepInfo.SpeedButton3Click(Sender: TObject);
begin
  if  Application.MessageBox('确定要删除吗','系统提示',MB_OKCANCEL)= IDOK then
  begin
    with ADOQuery1 do
    begin
       ADOQuery1.Delete;
       MessageBeep(0);
       ShowMessage('记录已经删除')
    end
  end
end;　可是如果表有外键索引的话，这样写会出错，应该怎么写，我试着写一SQL语句判断该删表中外键索引的字段是不是在外表中存在，如存在就不能删除，
eg:select * from T2 where colmun in (select colmun from T1 where colmun=value)　如果这条语句的RecordCount>0的话，就可以判断不能删除了，不过，这个Value是怎么得到呢？有其它的方法也更好，谢谢！

Answer 1

ADOQuery1.FieldByName('主键').value;   //这里就应该你要的
ADOQuery1.Delete;

Answer 2

或者你用
try
...
except
end;
会更好一点!