[magnu9]

Amigos creo que lo he solucionado. Pero si alguien quiere aportar algo se lo agradezco de corazon.

Código Delphi [-]
procedure TmtLocalidad.SpeedButton1Click(Sender: TObject);
begin
        querArticulo.close;
            querArticulo.SQL.Text:='SELECT localidad.codloc FROM articulo CROSS JOIN localidad WHERE (localidad.codloc = '''+dbcodigo.Field.Text+''' and articulo.codloc = '''+dbcodigo.Field.Text+''')';
          querArticulo.Open;  
        if querArticulo.Fields[0].AsInteger <> 0 then
          showmessage('Esta Localidad Tiene Articulos Asignados')
        else
        if dbCodigo.text = '' then
             MessageDlg('No existe localidad para borrar', mtInformation,[mbCancel], 0,)
         else if MessageDlg('¿ Seguro que desea borrar la localidad' + dbCodigo.Text + ' ?',
              mtConfirmation, [mbYes, mbNo], 0) = mrYes then
              querLocalidad.Delete;
              btnNuevo.Enabled:=true;
              btnGuardar.Enabled:=false;
end;