with ADOQuery1 do begin
     Close;SQL.Clear;
     SQL.Add('DELETE TABLENAME WHERE XXX=XXX');
     try
       Open;
     except
       on:Exception do
          begin
            //.............
          end;
     end;
end;